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IDENTIFICATION 


PRODUCT CODE: AC-F918B-MC 

PRODUCT NAME: CZRMLBO RMO05/3/2 FORMATTER 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL FQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DJCUMENT IS FURNISHED UNDER A 

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 

SUPPLIED BY DIGITAL. 
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ABSTRACT 


THE RMO5/3/2 FORMATTER PROGRAM PROVIDES THE FACILITIES TO FORMAT, 

TO CHECK THE HEADER AND DATA FIELDS OR VERIFY THE HEADER FIELD OF 
EACH DATA BLOCK ON THE PACK. EACH HEADER FIELD SPECIFIES THE ADDRESS 
OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK. 


IN THE FORMAT OPERATION, THE PROGRAM WRITES THE HEADER OF EACH 
DATA BLOCK WITH A CYLINDER NUMBER, TRACK NUMBER AND SECTOR NUMBER. 
ALSO, WRITES THE DATA FIELD WITH SELECTED DATA PATTERN. 

THE PROGRAM THEN VERIFIES THE WRITTEN DATA BLOCKS VIA EXECUTING THE 
“WRITE CHECK HEADER AND DATA'' COMMAND. 

THE PROGRAM THEN PERFORMS A VERIFY OF SECTOR ZERO, ON EACH OF 

THE TRACKS SELECTED FOR FORMATTING. THE VERIFY IS ACCOMPLISHED BY 
EXECUTING A "READ HEADER AND DATA‘’ COMMAND AND COMPARING THE TwO 
HEADER WORDS TO AN EXPECTED VALUE. 


IN THE VERIFY OPERATION, THE PROGRAM READS THE HEADER OF SECTOR 0 
THRU 29.(18 BIT MODE) OR 31. (16 BIT MODE) ON EACH CYLINDER AND 
TRACK TO BE VERIFIED, THEN COMPARES THE TWO HEADER WORDS TO MAKE 
SURE THEY ARE CORRECT. 


REQUIREMENTS 


EQUIPMENT 


PDP-11 PROCESSOR 

12k MEMORY 

KW11-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5"S, RMO3°S OR RMO2'S) 


PRELIMINARY PROGRAMS 

THERE ARE NO PREQUISITE PROGRAMS, PROVIDING THE RM SUBSYSTEM IS 
KNOWN TO BE OPERATIONAL. IF THE STATE OF THE RM SUBSYSTEM IS 
UNKNOWN, THE FOLLOWING PROGRAMS SHOULD BE RUN PRIOR TO USING THE 
FORMATTER PROGRAM. 

RMO5/3/2 DISKLESS TEST. PART 1 & 2 


RMOS/3/2 FUNCTIONAL TEST, PART 1 


LOADING PROCEDURES 


PAPER TAPE AND XXDP 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
LOADER OR IT MAY BF LOADED FROM 'XXDP* MEDIA USING THE APPROPRIATE 





TRMLBO RMOS/3/2 FORMATTER CRO V04.00 4- 


3.2 


MNVOA AMA ABPOOO UNA 
=OWOD NO mM PWN “OOo 


3.5 


97? 


a et ee eS ee 
tt et tt DOOOO OO°0 oD 
Rw ASSRVEARBLLS SH 


—E 1 
APR-81 18:39:56 PAGE 3-1 
LGADER. 


APT 


THIS PROGRAM IS APT COMPATIBLE TO THE EXTENT THAT APT WOOKS WILL 
BE IN THE PROGRAM AND WILL WORK THRU THE “OPTION INTERFACE’. 


FOR OTHER INTERFACES, APT MAY ONLY LOAD AND START THE PROGRAM. 
1.£. LOAD AND DUMP MODE. 


AUTOMATIC MODE (MONITOR) 

1. THE INPUT DIALOGUE IS BYPASSED. 

2. THE BUSS ADDRESS AND CONTROLLER INTERRUPT VECTOR !S 
DEFAULTED. 

DUMP MODE 

INPUT DIALOGUE AFTER PROGRAM STARTS 

APT ETABLE DEFINITIONS 

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 

ENVIRONMENTAL TABLE (ETABLE) ENTRIES, VIA RUNNING 

THE APT UTILITY PROGRAM ''TSP"': 

1. SOFTWARE ENVIRONMENT: 


1 IF APT SCRIPT MODE 
O IF STANDLONE MODE 


2. ENVIRONMENT MODE: 


BIT 7 = 1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

BIT 6 = 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
= 9 DON'T SPOOL TO APT 

BIT 5 = 1 SUPPRESS CONSOLE OUTPUT 
= 0 ALLOW CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 
3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 
IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET 10 1, 
THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD 
OF THE HARDWARE CONSOLE SWITCH REGISTER. 
4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 
5. CPU OPTIONS 
NOT USED 


6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
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NOT USED 


CP INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 256 


8. BUS PRIORITY 1: 
NOT USED. 


9. INTERRUPT VECTOR 2: 
NOT USE 


10. BUS PRIORITY 2: 
NOT USED 


11. BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 


12. DEVICE MAP: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 
1_IN BITS 0 TO 7? WILL SELECT THE CORRESPONDING DRIVE 
TO BE TESTED. BITS 8-15 ARE NOT USED. 


13. CONTROLLER DESCRIPTOR WORDS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 
NUMBER SPECIFIES THAT PROGRAM RUNS IN CHECK MODE. 
14. CONTROLLER DESCRIPTOR WORDS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 


NUMBER SPECIFIES THAT PROGRAM SELECTS 30.(18 BIT MODE) 
SECTORS FOR A TRACK IN ALL OPERATIONS. 


STARTING PROCEDURES 


STARTING ADDRESSES 
200 - START ADDRESS IS DEFAULT, ALL SWITCHES CLEAR (SEE SECTION 5) 
204 = RESTART ADDRESS, THE RESTART ADDRESS PROVIDES THE OPERATOR WITH 
THE ABILITY TO CHANGE THE DEFAULT RM/RH ADDRESSES AND TO USE 
THE BAD SECTOR FILE UTILITY ROUTINES (SEE SECTION 9.1). 
OPERATION ACTION 
1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 
2. LOAD THE STARTING ADDRESS - 200 OR 204 
SET THE SWITCHES AS REQUIRED AND PRESS ‘START". 
IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES 


ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEQUT 
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING Sw<Q2>. 
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THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 
*DO YOU WANT TO FORMAT (L) Y ?° 


ENTER THE APPROPRIATE CODE: 'Y° FOLLOWED BY CARRIAGE RETURN OR 
JUST CARRIAGE RETURN (DEFAULT) TO FORMAT & HEADER VERIFY. IF THE 
RESPONSE IS 'N" FOLLOWED BY CARRIAGE RETURN, THEN A VERIFY ONLY 
MODE WILL BE ENTERED. 


THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 
"DO YOU WANT 16 BIT MODE (L) Y ?° 


ENTER THE APPROPRIATE CHARACTER: ‘Y* FOLLOWED BY A CARRIAGE RETURN 
OR JUST A CARRIAGE RETURN (DEFAULT) FOR 16 BIT MODE. IF THE 
Say 1S 'N' FOLLOWED BY 4 CARRIAGE RETURN, THEN ENTER 18 BIT 
MODE. 


THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: ' 


ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. ENTER THE DRIVE 
NUMBER FOLLOWED BY A CARRIAGE RETURN. IF THE DRIVE SELECTED IS NOT 
AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND RETURN TO 
THE DRIVE ADDRESS REQUEST. 


NOTE: IT NOT POSSIBLE TO ENTER A MULT-DRIVE ENTRY FOR THIS PROMPT. 
THE ONLY WAY ALL THE DRIVES CAN BE FORMATTED, IS TO SETUP A CHAIN 
TO RUN THIS PROGRAM. 


AFTER THE OPERATOR HAS SELECTED A DRIVE, THE OPERATOR WILL BE 
ASKED TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 


"CHANGE DRIVE PARAMETERS (L) N ?° 


IF THE ENTRY IS A 'N' FOLLOWED BY A CARRIAGE RETURN OR JUST A 
CARRIAGE RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY DRIVE 
PARAMETERS TO BE CHANGED AND WILL PROCEED TO TEST THE DRIVES AS 
COMMANDED. IF THE ENTRY IS A ‘Y' FOLLOWED BY CARRIAGE RETURN, 
THE a WILL BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS 
FOLLOWS. 


THE PROGRAM WILL ASK FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 
"ENTER ADDRESS LIMITS: ° 


THE eS arte A SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER 
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT. 

IF A ‘CARRIAGE RETURN’ IS TYPED AS A RESPONSE, THE PRESENT VALUE 
WILL BE USED; IF A "PERIOD* IS TYPED, THE PROGRAM WILL BYPASS 
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES. 


NOTE: THAT THE CYLINDER AND TRACK VALUES ARE DECIMAL NUMBERS. 
THE ADDRESS SPECIFIED BY THE BEGINNING TRACK MUST BE LESS THAN 
THE ENDING TRACK ADDRESS IF THESE TWO ADDRESSES ARE ON THE SAME 
CYLINDER. ON THE OTHER HAND, THE ENDING CYLINDER ADDRESS MAY 
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BE LESS THAN THE STARTING CYLINDER ADDRESS. IN THIS CASE, TH 

PROGRAM WILL FORMAT OR VERIFY THE DISK PACK FROM THE STARTING 

art Deen TO CYLINDER 822 AND THEN FROM CYLINDER O TO THE ENDING 
YLIN < 


9. THE PROGRAM WILL THEN TYPE: 
"STARTING FORMAT’ 


"STARTING HEADER VERIFY‘ 


NOTE: IF A NEW PACK IS UNFORMATTED, THE PROGRAM ALSO ASKS YOU TO 
ENTER TWO SERIAL NUMBERS. (EXCEPT IF OPERATING IN VERIFY ONLY 
MODE) THESE TWO SERIAL NUMBER MUST BE NON-ZERO DECIMAL NUMBERS. 


10. THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE OPERATION 
EE A ‘CONTROL O'. THE PROGRAM WILL TYPE THE FOLLOWING 


"PRESENT ADDRESS IS: CXXX TXX' 


11. TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200 OR 204 AGAIN. 


RH11 = RH70 UNIBUS ADDRESS 


THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT 
176700 AND THAT THE VECTOR ADDRESS IS 254. THESE ADDRESSES MAY 
BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204. 

Sth ag RH11/RH70 ADDRESS IN RESPONSE TO THE REQUEST FROM THE 


SWITCH REGISTER SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 

AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE "SOFTWARE" SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE’ 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A ‘CONTROL G*. THE PROGRAM WILL RECOGNIZE THE *CONTROi G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 

IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE ‘SOFTWARE’ 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. ‘RUBOUT’ 
pri Me U" FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
W . 
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ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SwIT(w 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALi 1°S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE “SOFTWARE* REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


Sw<15>=1 HALT ON ERROR 
Sw<13>=1 INHIBIT ERROR TYPEOUTS 
Sw<10>=1 BELL ON ERROR 
SWw<09>=1 LOOP ON ERROR 
SwW<02>=1 DCN'T DISPLAY SYSTEM STATUS AFTER INITIAL START 
Sw<01>=1 LOOP ON THE CURRENT TRACK 
Sw<00>=1 LOOP THE PROGRAM ON THE SELECTED DRIVE 
6. ERROR MESSAGES 


"RH INTERRUPT OCCURRED (RMAS=0) ~- AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


"UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


"MASSBUS PARITY ERROR (MCPE=1)" - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH WHEN THE INDICATED REGISTER WAS READ. 


"MASSBUS PARITY ERROR (PAR=1)' - A CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 


"ADDRESS PLUG CHANGE BIT SET' - THE PROGR4M FOUND THE ‘OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


"RH DIDN'T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ - THE INDICATED DRIVE HAS GONE OFFLINE 


"PERSISTENT DRIVE UNSAFE ERROR’ ~- THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING "DRIVE 
CLEAR’ INSTRUCTIONS. 


"UNCORRECTABLE MASSBUS PARITY ERROR* - THE PROGRAM ATTEMPTED 

TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A ‘PAR* ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


"SOFTWARE TIMEOUT' - THE OPERATION FAILED TU COMPLETE WITHIN 
1 SECOND. 


"DRIVE UNSAFE ERROR' - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


*"CONTROLLER/DRIVE ERROR DURING WRITE’ = THE INDICATED NON@DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 
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13. “CONTROLLER/DRIVE ERROR DURING WRITE CHECK" = A NON@DATA ERROR 
OCCURRED DURING THE WRITE CHECK. 


14. “DATA ERROR DURING WRITE CHECK’ = A DATA RELATED ERROR OCCURRED 
DURING A WRITE CHECK OPERATION. A DATA ERROR IS CONSIDERED 
TO BE - OF THE FOLLOWING ERRORS: "DCK*, ‘OPI', "DTE*, ‘Hl 
"HCE', O "F FER‘. 

15. ‘“RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE’ = THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR, 


16. ‘CONTROLLER/DRIVE ERROR VERIFYING HEADERS* = AN ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


17. ‘"HCE* ERROR VERIFYING HEADERS' = A — ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


18. ‘CYLINDER FIELD IN HEADER IS NOT CORRECT" = THE CYLINDER FIELD 
FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 


19. ‘“TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT’ - THE TRACK AND 
Naas FROM A HEADER READ DURING THE VERIFICATION IS NOT 


20. ‘WRITE CHECK ERROR*® - THE RH REPORTED A WRITE CHECK ERROR AND 
NO DRIVE ERRORS WERE SET. 


MISCELLANEOUS 


FORMAT TIME 


THE "FORMAT" MODE WILL TAKE APPROX. 10 MINUTES FOR AN ENTIRE RMO3/2 
AND APPROX. 30 MINUTES FOR AN ENTIRE RMOS. 


THE "VERIFY' ONLY MODE TAKES APPROX. 7 MINUTES FOR AN RM03/2 AND 
APPROX. 20 MINUTES FOR RMOS. 


HALTING THE PROGRAM 


THE OPERATOR SHOULD NOT HALT THE PROGRAM VIA THE CONSQLE DURING A 
FORMAT OPERATION. HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY 
FORMATTED. TO TERMINATE THE FORMAT, TYPE A “CONTROL C°. 


SURFACE VERIFICATION 


THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK 
PACK VERIFICATION. IF THE PROGRAM REPORTS A SECTOR AS BEING ‘NOT 
ACCEPTABLE', THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 
SECTORS WHICH "PASSED" MAY OR MAY NOT BE GOOD. 
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PROGRAM DESCRIPTION 


FORMAT OPERATION 


THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE OPERATOR. 


THE PACK _IS WRITTEN WITH A 'WORST CASE" DATA PATTERN, WHICH IS A OCTAL 
NUMBER 155555, FOLLOWED BY AN OCTAL NUMBER OF 133533. 


THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA COMMAND FOR 
THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND. 
IF AN ERROR OCCURS DURING THE WRITE, THE PROGRAM WILL RETRY THE 
WRITE BEFORE CONTINUING. IF A DATA RELATED ERROR IS DETECTED 

DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE OF 

THE FOLLOWING ERRORS: 'DCK', ‘OPI", ‘DTE*, ‘HCRC", ‘HCE’, 

OR 'FER'), THE SECTOR IN ERROR WILL BE REWRITTEN. THE PROGRAM WILL 
CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR 
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE 

THE SECTOR AS BEING 'NONRECOVERABLE'. FOLLOWING THIS SEQUENCE, 

THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENCOUNTERED 
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS 
DESCRIBED ABOVE. 


IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK, THE 
PROGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 
TO THE NEXT TRACK. 


IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY 
AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. ERRORS 

THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK 
BUT, AS THE PROGRAM IS NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK 
OF THE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS CONCLUSION. 
IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH 

THE PROGRAM CALLS ‘UNACCEPTABLE’ INDICATE BAD AREAS OF THE PACK; 
UNFORTUNATELY, SECTORS WHICH ‘PASS" CANNOT BE ASSUMED TO BE GOOD. 


DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN SELECTED BY THE OPERATOR. 


POSITIONER VERIFICATION (QUICK VERIFY) 


AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE 

POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER 
FROM SECTOR 0 ON THE STARTING TRACK IS READ. THE CYLINDER ADDRESS 
FIELD FROM THE HEADER IS COMPARED TO THE REQUESTED CYLINDER; IF 
THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS TYPED. 
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 

OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 
THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S POSITIONER 
ADVANCED PROPERLY DURING THE FORMAT OPERATION. 


HEADER VERIFICATION (VERIFY ONLY) 
THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA 


L 4 
ZRMLBO RMO05/3/2 FORMATTER MACRO VO046.00 4-APR-81 18:39:56 PAGE 3-8 


457 TO AN ENTIRE TRACK AT A TIME, THEN COMPARES THE EXPECTED HEADER 

458 WORDS WITH RECIEVED HEADER WORDS. THE CYLINDER ADDRESS FIELD FROM THE 
459 HEADER IS COMPARED TO THE EXPECTED CYLINDER, IF THE CYLINDER ADDRESSES 
469 DO NOT COMPARE, AN ERROR MESSAGE IS REPORTED. NEXT, THE TRACK/SECTOR 
461 FIELD FROM THE HEADER IS COMPARED TO THE EXPECTED TRACK/SECTOR, IF 
462 THE TRACK/SECTOR ADDRESSES DO NOT COMPARE, AN ERROR IS REPORTED. 

463 VERIFICATION OF THE HEADERS STARTS FROM SECTOR O ON THE BEGINNING 
444 CYLINDER AND TRACK, AND CONTINUES UNTIL COMPARING SECTOR 29.(18 BIT 
465 MODE) OR 31. (16 BIT MODE) ON ENDING CYLINDER AND TRACK. THIS CHECK 
466 IS PERFORMED TC CONFIRM THAT A DISK HAS PREVIOUSLY BEEN FORMATTED 
re AND ALL THE HEADERS ARE IN GOOD CONDITION. 

46 

469 

470 9. BAD SECTOR FILE DESCRIPTION 

Se er 

473 SECTORS 0 THRU 31.,0N CYLINDER 822., LAST TRACK ARE ALWAYS FORMATTED 
474 IN 16 BIT MODE. THEY CONTAIN THE BAD SECTOR FILE ON THE PACK FOR BOTH 
on 30. SECTOR(18 BIT MODE) AND 32. SECTOR(16 BIT MODE) OPERATIONS. 

477 THE DATA FIELD OF EACH SECTOR OF THE BAD SECTOR FILE IS DESCRIPTED 
be BELOW: 

480 THE FIRST TWO WORDS IN THE DATA FIELD SPECIFY THE SERIAL NUMBER OF 
481 THE PACK. THE SERIAL NUMBER MUST BE A NON-ZERO NUMBER AND CONSISTS 
482 OF MAXIMUM 10 OCTAL DIGITS. THE FIRST WORD OF THE SERIAL NUMBER 

483 CONTAINS THE 5 LEAST SIGNIFICANT OCTAL DIGITS, WHILE THE SECOND WORD 
tae CONTAINS THE 5 MOST SIGNIFICANT DIGITS. 

4 

Pe THE THIRD WORD IS ALWAYS ALL 0°S. 

488 THE FORTH WORD IS USUALLY ALL 0"S, UNLESS THE PACK IS AN ALIGNMENT 
re 4 PACK, IN WHICH CASE THE WORD WILL BE 177777. 

491 THE FOLLOWING 252. WORDS DEFINE THE BAD SECTOR ADDRESS INFORMATION. 
492 TWO WORDS ARE USED TO DEFINE A SINGLE BAD SECTOR, THE FIRST WORD OF 
493 THE PAIR, SPECIFIES THE CYLINDER ADDRESS. THE SECOND WORD OF THE PAIR, 
494 SPECIFIES THE TRACK (HIGH BYTE) AND SECTOR (LOW BYTE) ADDRESSES. ALL 
pest UNUSED LOCATIONS ARE RECORDED WITH ONES (177777). 

497 THE SECTORS ON THE LAST TRACK (BSF) ARE DIVIDED INTO FOUR GROUPS AS 
pe FOLLOWS: 

500 (1) SECTORS 0, 2, 4, 6 AND a CONTAIN THE MANUFACTURES (MFG) DEFINED 
265 BAD SECTORS FOR 16 BIT MODE. 

503 (2) SECTORS 1, 3, 5, 7 AND 9. CON: AIN THE MANUFACTURES (MFG) DEFINED 
age BAD SECTORS FOR'18 BIT MODE. 

506 (3) SECTORS 10., 12. THRU zs CONTAIN THE USER (USR) DEFINED BAD 
rath SECTORS FOR 16 BIT MODE 

509 (4) SECTORS 11., 13. THRU 31. CONTAIN THE USER (USR) DEFINED BAD 
zy SECTORS FOR 18 BIT MODE. 

512 THE SECTORS IN EACH GROUP ARE IDENTICAL AND SECTORS 0, 1. 10. AND 11. 
513 ARE USED AS REFERENCE SECTORS BY THE PROGRAM. 
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BAD SECTOR UTILITY 


THE PROGRAM PROVIDES A FEW UTILITY ROUTINES TO HANDLE THE BAD 
SECTOR FILE. TO ACCESS THESE ROUTINES START THE PROGRAM AT 204. 


BEFORE THE PROGRAM FORMATS THE PACK,THE PROGRAM TYPES THE FOLLOWING 
MESSAGE TO ALLOW THE OPERATOR TO ACCESS THE UTILITIES BY ENTERING 
THE SELECTED FUNCTION NUMBER. 


UPDATE "USR® BAD SECTORS... cccccccveccceuccecosenceree 0 
PRINT ‘MFG* BAD SECTORS........ nee ewsveccrecesecece 1 
PRT "US BAD SECTORS co cicec seven ewccccccucresvves 2 
TRUTIALIIZS “USK” GAD SECTOR FILE. iiss cccce caessesvus 3 
PRINT A SECTOR OF THE LAST TRACK. cc cee ccccsaccecvacce 4 
PRINT TALS POSAOE 6 oud anced whe ds weds ceded oene nes 5 
AUS. See es ee Oe ee eee ee ee eee eee <CR> 


ENTER UTILITY FUNCTION (HELP=5): 


THE FIRST UTILITY (0) ALLOWS USER DEFINED BAD SECTORS TO BE ENTERED 
MANUALLY INTO THE ‘USR' BAD SECTOR FILE TABLE. THIS IS ACCOMPLISHED 
BY SPECIFING THE CYLINDER ADDRESS, TRACK ADDRESS AND SECTOR ADDRESS 
IN DECIMAL, TO THE FOLLOWING PROMPT. 


EXAMPLE: CYL.TRK,SEC= C,T.S<CR> ;ENTERS BAD CYL,TRK,SEC IN FILE 
CYL,TRK,SEC= <CR> ZEXIT 


TO TERMINATE THE BAD SECTOR ADDRESS ENTRY, TYPE A ‘CARRIAGE RETURN* 
IN RESPONSE TO THE ENTRY REQUEST. 


THE SECOND (1) AND THIRD (2) UTILITIES WILL TYPE THE CONTENTS OF THE 
"MFG' AND “USR' BAD SECTOR FILES ON THE CONSOLE IN DECIMAL NUMBER. 
THE FORMAT OF THE TYPEOUT WILL BE AS FOLLOWS; 


PACK S/N: XXXXXX e 
CONTENTS OF 16 BIT "MFG OR USR" BAD S*CTOR FILE (DECIMAL) 


ats 


CONTENTS OF 18 BIT "MFG OR USR' BAD SELIOR FILE (DECIMAL) 


7. 


WHERE "XXXXXX" IS THE OCTAl SERIAL NUMBER OF THE PACK. WHERE °C’ 

IS THE DECIMAL CYLINDER ADDRESS, ‘T' IS THE DECIMAL TRACK ADDRESS, 
AND 'S' IS DECIMAL SECTOR OF THE BAD SECTOR. IF THERE ARE NO ENTRIES 
CURRENTLY IN THE BAD SECTOR FILES, THE FOLLOWING TYPEOUT WILL 
APPEAR; 


PACK S/N: XXXXXX 


CONTENTS OF 16 BIT *MFG OR USR’ BAD SECTOR FILE (DECIMAL) 
* NO ENTRIES * 


A ett en nee nesses 


“7RMLBO RMO5/3/2 FORMATTER 


FAOCAAAO 
— so 
O00 NO UI isw 


620 


N 1 
MACRO vV04.00 4-APR-81 18:59:56 PAGE 3-10 


CONTENTS OF 18 BIT ‘MFG OR USR' BAD SECTOR FILE (DECIMAL) 
* NO ENTRIES 


THE FOURTH (3) UTILITY WILL RESET ALL BAD SECTOR ENTRIES IN THE 
"USR* BAD SECTOR FILE TO -1. THE SERIAL NUMBER WILL NO! BE INITIALIZED 
BY THIS UTILITY. 


THE FIFTH (4) UTILITY WILL ALLOW THE OPERATOR TO LOOK AT A SECTOR 
OF DATA FROM THE LAST TRACK ON THE LAST CYLINDER (BAD SECTOR FILE). 
THIS WILL ALLOW THE OPERATOR TO PHYSICALLY SEE WHAT IS _ IN THE BAD 
SECTOR FILE. THE DATA IS TYPED OUT IN BLOCK FORM IN OCTAL. 


TYPING A "5" WILL ALLOW THE OPERATOR TO DISPLAY THE UTILITY MESSAGE 
AGAIN ON THE CONSOLE. TO CONTINUE THE PROGRAM OFERATION, JUST TYPE 
A "CARRIAGE RETURN" <CR>. 


RH/RM DRIVER 


THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 


TO INITIALIZE THE DRIVER: 


JSR PC, RMINIT 
RETURN 


UPON RETURN YOU MUST EXAMINE THE ‘DRVSTA’’ TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA' TABLE IS 
EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE iNDICATED AS FOLLOWS: 


DRVSTA DRIVE STATE 


>0 ONL INE 

= OFFLINE, DRIVE 
IS NOT AN RMO5/3/2, OR 
NONEXISTENT DRIVE 

<0 UNSAFE 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED "DRVTYP*. 
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTYP CONDITION 
0 NONEXISTENT DRIVE 
4 M03 
5 RMO2 
7 RMO5 


CZRMLBO RMO5/3/2 FORMATTER 
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10.3 


10.4 


10.4.1 


1 NOT AN RM05/3/2 
THE "RMINIT® ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEM INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEGUENCE. 


CALL: 
JSR RO,RMO3 sMAKE THE CALL 
PN7 DPB sADDRESS OF DPB 
RETURN1 sRETURN IF QUEUE IS FULL 
RE TURN2 sRETURN IF REQUEST IS IN 


sQUEUE OR THERE IS AN 
ERROR CONDITION 


*DPB: (DATA PARAMETER BLUCK) 


PNTDPB: .BYTE 0 3(0) DRIVE NUMBER 
-BYTE 3(1) OFFSET VALUE OR FMT16, ECT, AND HCI 
-BYTE 3 (2) COMMAND 
-BYTE 3(3) PSEL AND A17 AND A16 
. WORD 3 (4) WORD COUNT (MUST BE NEG.) 


7 (6) BUFFER ADDRESS OR 
SREGISTER TABLE POINTER 
:(10) SECTOR ADDRESS OR 
SFIRST REG. INDEX 
(11) TRACK ADDRESS OR 
LAST REG. INDEX 
(12) CYLINDER ADDRESS 
(14) ERROR TABLE POINTER 
sPOINTS TO THE FIRST OF TWENTY 
;LOCATIONS OF WHERE THE DRIVER 
:IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
:ZERO REGISTERS ARE NOT SAVED. 
: (16) STATUS/ERROR INDICATOP 
;BIT15=1=>ERROR OCCURRED 
;B1T07=1=>DONE 
;B1T14-BIT09 AND B1T06-BI103 
: INDICATE TYPE OF ERROR 


THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY og “RM TIMER’’ ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER 


= 
Oo 
D 
io] 
oo © o ooOoO°oo 


«WORD 7 


MOV #16. .-(SP) 316 MILLISECONDS BETWEEN 
SCLOCK TICKS 
JSR PC.RMTMR CALL THE TIMER ROUT INE 


IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 

THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING 
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
SECONDS FOR ERROR RECOVERY OPERATIONS. 


EXAMPLE - WRITE 1000. wORDS 


SEG Guise 
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1$: JSR RO,RMO3 


BR 1$ 
2s: TST — 


FMTDPB: .BYTE 


BMI ERROR] | 


«BYTE 
-BYTE 
«BYTE 
. WORD 
. WORD 
-BYTE 
-BYTE 
-WORD 400 
«WORD ERRTBS 
-WORD 0 


ALTERNATE DPB SETUP 


1 


6 
1000. 
RTBUF 


VWE | o-ouw 


FMTDPB: .WORD 


5 
«WORD WRITE 
-WORD -1000. 
-WORD WRTBUF 


| 
400.ERRTBS .0 


10.5 RH/RM REGISTERS 


>CALL THE DRIVER 

[DPB ADDRESS 

WAIT FOR QUEUE IF FUL 

WAIT FOR COMMAND TO COMPLETE 


ERROR OCCURRED 


DRIVE #5 


‘WRITE COMMAND 


:WORD COUNT 

sBUFFER ADDRESS 

+ SECTOR 

: TRACK 

: CYLINDER 

ERROR TABLE 
;STATUS/ERROR INDICATOR 


7THIS SETUP ACHIEVED 
sEVERYTHING THE 

ABOVE TABLE DID, BUT 
7 IN A CLEANER FORMAT 


D2 
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ene) 10.6 COMMANDS PERFORMED BY THE DRIVER 
Gs 
P45 COMMAND CODE COMMAND TYPE 
46 ae ee ed 
74” SEEK 105 Pp 
748 RECAL IRATE 107 Pp 
749 DRIVE CLEAR 111 N 
750 RELEASE 113 N 
751 OF * SET 115 P 
752 RETURN TO CENTER 117 P 
733 READIN PRESET 121 N 
754 PACK ACKNOWLEDGE 123 N 
755 SEARCH 131 P 
756 GET REGISTER(S) 14) S 
757 SET FORMAT 143 S 
758 SELECT DRIVE 145 S 
759 WRITE CHECK DATA 151 D 
760 WRT CHK HDR & DATA 153 D 
761 ; WRITE DATA 16) D 
762 WRITE HEADER & DATA 163 D 
763 READ DATA 171 D 
764 READ HEADER & DATA 173 D 
765 
766 
767 N = HOUSEKEEPING 
768 P = POSITIONING 
769 D = DATA TRANSFER 
~ S = SPECIAL PROVIDED BY THE DRIVER 
ae 10.7 DPB STATUS/ERROR INDICATOR WORD 
774 THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
775 THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 
776 A ONE. 
777 
778 BIT NO. MEANING IF ON A “"I"" 
779 weem—wenw—e 22 22 He eee ee we eee eee 
780 
781 15 ERROR OCCURRED 
782 DONE (BITO7=0);: BITS 14-9 SPECIFIES TYPE 
Be DONE (BITO7=1); BITS 6-3 SPECIFIES TYPE 
785 16(1) USER MADE A REQUEST FOR A FUNCTION TO BE 
ree PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 
788 13(1) USER MADE A REQUEST FOR A FUNCTION 
789 TO BE PERFORMED ON A DRIVE THAT HAS AN 
a UNLOAD REQUEST IN QUEUE. 
as 12¢2) PERSISTENT UNSAFE CONDITION EXIST. 
ioe 112) UNCORRECTABLE PARITY ERROR OCCURRED 
7% 10€2) (4) FATAL PARITY ERROR. A MASSBUS CLEAR WAS 
797 PERFORMED, ALL QUEUES WERE EMPTIED, AND 


ALL DRVACT*S SET TO THE IDLE STATE 


FORMATTER 
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9(3) (4) 
8(4) 

7 

6(2) 
5(2) 


4(2) 
3(2) 


SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 


"ERROR OCCURRED DURING AN I/O OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC "'RECALIBRATE’’ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER — 
THE DRIVE BUT THE OPPOSITE PORT DID 
RELEASE THE DRIVE WITHIN 15. SECONDS 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


(4) = 


10.8 ERROR CALLS 


THERE ARE A 


REQUEST WASN'T PUT IN QUEUE. (RH/RM 


REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A ‘DRIVE CLEAR"’ TO THE DRIVE. 

NOTE: ALL RH/RM REGISTERS ARE SAVED 

AS PER DPB+14 BEFORE THE "DRIVE CLEAR’’. 


REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


A _‘'RECALIBRATE'’ SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 


MADE BY THE DRIVER. 
FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 


WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 


AN ERROR CALL OF THE FORM ‘‘ERROR N'', 


WHERE 'N'' IS THE ERROR 


NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION. 


N TYPE 


1 RH70 INTERRUPT 


DATA AVAILABLE 


*R4= RMCS1°S ADDRESS 


CTRML BO 


' 2 
RM05/3/2 FORMATTER MACRO vVO04.00 4-4PR=-81 18:59:56 PAGE 3-15 


OCCURRED (RHAS=0) 


UNEXPECTED ATTENTION RI= rey NUMBER 
OCCURRED R3= A A BIT 
“Sa, Tan acs Mg ADDRESS 


RMERRS+2=RMER1 
RMERRS +4=RMER? 
RMERRS +6=RMMRO 


MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
ERROR (MCPE=1) RD.WRD= WORD RE4D 
MASSBUS PARITY WRT .AD= fr spe OF REG. WRITTEN 
ERROR (PAR=1) WRT.WD= WORD WRITTEN 

RD.WRD= WORD READ BACK 
ADDRESS PLUG CHANGE R1= DRIVE NUMBER 


BIT SET ("OPE ERROR) R3= ATA BIT 
*R4= RMCS1'S ADDRESS 
R5= (RMAS) 
RMERRS _=RMDS 
RMERRS +2=RMERI 
RMERRS+4=RMER?O 
RMERRS*6=RMMR2 


THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


'orMar 


001700 
104000 
000004 


TER 


MACRO 
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LAST REVISION 06-APR=81 
-TITLE C2RMLBO mee FORMATTER 


=COPYRIGHT (C) 19 


"DIGITAL EQUIPMENT oo 
: sCOLORADO SPGS., CO. 80919 


; sPROGRAM BY MIKE LEAVITT 


TeTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
ries oa (MAINDEC=11=DZQAC-C5), 18-MAR-81 


a: 
a” 
~+ 
“~ 
a 


Cee re 


eansepnpnpneneenea anne 


OPERATIONAL SWITCH SETTINGS 
SWITCH 


HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

LOOP ON ERROR 

DON'T DISPLAY er". oa AFTER INITIAL START 
LOOP ON THE CURRENT TRACK 

LOOP THE PROGRAM ON THE SELECTED DRIVE 


-SBITL BASIC DEFINITIONS 
mt ag OF THE STACK POINTER *** 1100 *** 


BASIC DEFINITION OF ERROR CALL 
3;BASIC DEFINITION OF SCOPE CALL 


gs ga a DEF INI TIONS 


;:CODE FOR HORIZONTAL TAB 

72CODE FOR LINE FEED 

77CODE FOR CARRIAGE RETURN 

7:CODE FOR CARRIAGE RETURN-LINE FEED 
3:PROCESSOR STATUS WORD 


3;STACK LIMIT REGISTER 

77PROGRAM INTERRUPT REQUEST REGISTER 
:;HARDWARE SWITCH REGISTER 

; :HARDWARE DISPLAY REGISTER 


PURPOSE REGISTER i a hE Sores 


zs INITIAL 

STACK. = 

ERROR = EMT 
SCOPE = JOT 

“3 = 2 

CR 2°35 
CRLF = 200 

PS =: 377776 
PSW=PS 

STKLMT = 177774 
PIRQ S. TP7i re 
DSWR = 177570 
DDISP == 177570 
3 *GENERAL 

RO = %O 

R1 = %1 

R2 = Ze 

R3 = 33 

RG = "24 

R5 = 35 

R6 = 3G 

R7 a oe 

SP = 26 

PC = 3 


::GENERAL REGISTER 
: GENERAL REGISTER 
>; GENERAL REGISTER 
::GENERAL REGISTER 
: GENERAL REGISTER 
:; GENERAL REGISTER 
> GENERAL REGISTER 
: GENERAL REGISTER 
Zr STACK POINTER 
77PROGRAM COUNTER 


Ge DEFINITIONS 


s;PRIORITY LEVEL 0 


H 2 
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GASIC DEFINITIONS 


0 PR1 = 40 szPRIORITY LEVEL 
100 PR2 = 100 z7PRIORITY LEVEL 
000140 PRS = 140 szPRIORITY LEVEL 
000200 PRS = 200 szPRIORITY LEVEL 
ale oe PRS = 240 szPRIORITY LEVEL 
PR6 = 300 ZZPRIORITY LEVEL 
000340 PR7 = 360 s3PRIORITY LEVEL 
s""SWITCH REGISTER’* SWITCH DEFINITIONS 
100000 Swi5 = 100000 
940000 Sw14 = 40000 
020000 Sw13 = 20000 
010000 Swi2 = 10000 
004000 Sw11 = 4000 
002000 Sw10 = 2000 
001000 SwO9 = 1000 
00 SwO08 = 400 
‘00 Sw07 = 200 
000100 Sw06 =. 100 
0! 0 Sw05 = 40 
000020 Sw04 = 20 
000010 Sw03 eh 
000004 SwO02 2.4 
000002 Sw01 = 2 
000001 SwOo 29 
001090 Sw9=Sw09 
000400 SW8=SWw08 
000200 Sw7=Sw07 
000100 SwW6=Sw06 
000040 SW5=Sw05 
000020 Sw4=SW04 
000010 SwW3=Sw03 
000004 SW2=Sw02 
000002 SW1=Sw01 
000001 Sw0=Sw00 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100 BIT15 = 100000 
040000 BIT14 = 40000 
920000 BIT13 = 20000 
00 BIT12 = 16000 
000 BIT11 = 4000 
062000 BIT10 = 2000 
001000 BITO9 = 1000 
000400 BITO8 = 400 
000200 BITO7 = 200 
00 BITO06 == 100 
000040 BITOS = 40 
000020 BIT04 = 20 
000010 B1T03. = =.10 
000004 BIT02 =4 
600002 BITO} ae 
000001 B]T00.. = 4 
001000 BIT9=BITO9 
000400 6118=B1T08 
000200 BIT7=BITO7 


000100 BITé=B1106 


NOAA WE A 


- 
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BASIC DEFINITIONS 


000040 BITS=BITOS 
20 BIT4=BITOS 
500008 Bi Te=81102 
00000. BIT1=BIT01 
06000 BITO=BITOO 
z*BASIC “'CPu'* TRAP VECTOR ADDRESSES 
ERRVEC = 4 TIME OUT AND OTHER ERRORS 
000010 RESVEC = 10 : PRESERVED AND ILLEGAL INSTRUCTIONS 
000014 TRITVEC = 14 “T'' BIT 
000014 TRIVEC = 14 DE TRACE TRAP 
000014 BPTVEC = 14 >; 7BREAKPOINT TRAP (BPT) 
000020 IOTVEC = 20 : INPUT/OUTPUT TRAP (IOT) **SCOPE*® 
000024 PWRVEC = 24 POWER FAIL 
30 FMTVEC = 30 >: EMULATOR TRAP (EMT) **ERROR«* 
000034 TRAPVEC = 34 37" 'TRAP’' TRAP 
‘ TKVEC = 60 zi; TTY KEYBOARD VECTOR 
TPVEC = 64 :;T1TY PRINTER VECTOR 
a 000240 PIRQVEC = 240 PROGRAM INTERRUPT REQUEST VECTOR 
is .SBITL RH REGISTERS 
re CONTROL AND STATUS REGISTER 1 (RMCS1) 
7% 000100 IE = 100 ; INTERRUPT ENABLE (BIT #6) 
75 000200 RDY = 200 TREADY (BIT #7) 
76 000400 A16 = 400 HIGH ORDER BUS ADDRESS BIT (BIT #8) 
77 001 A17 = 1000 ‘HIGH ORDER BUS ADDRESS BIT (BIT #9) 
78 002 PSEL = 2000 PORT SELECT (BIT #10) 
79 020000 MCPE = 20000 sMASSBUSS PARITY ERROR (BIT #13) 
8U 040000 TRE = 40000 : TRANSFER ERROR (BIT #14) 
2 33 = 100000 :SPECIAL CONDITION (BIT #15) 
83 WORD COUNT REGISTER (RMWC) 
* (EACH BIT IS CALLED BY BIT NUMBER) 
86 BUS ADDRESS REGISTER (RMBA) 
o (EACH BIT IS CALLED BY BIT NUMBER) 
4 zs CONTROL AND STATUS REGISTER 2 (RMCS2) 
91 000001 US1 #4 UNIT SELECT (BIT 40) 
92 000002 uS2 ae SUNIT SELECT (BIT #1) 
93 US4 = i UNIT SELECT (BIT #2) 
94 600010 BAI = 10 :BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
95 000020 PAT = 20 :MASSBUS PARITY TEST (BIT #4) 
96 0 CLR = 40 CLEAR (BIT #5) 
9? 000100 IR = 100 INPUT READY (BIT #6) 
98 000200 OR = 200 :OUTPUT READY (BIT #7) 
99 000400 MPE = 400 =MASS BUS PARITY ERROR (RIT #8) 
100 001000 MXF = 1000 MISSED TRANSFER ERROR (BIT #9) 
101 002000 PGE = 2000 ;PROGRAM ERROR (BIT #10) 
102 000 NEM = 4000 NON EXISTENT MEMORY (BIT #11) 
103 010000 NED = 10000 =NON EXISTENT DRIVE (BIT #12) 
104 020000 UPE = 20000 sUNIBUS PARITY ERROR (BIT 413) 
105 040000 WCE = 60000 :WRITE CHECK ERROR (BIT #14) 


en oo 


Sy) 


NE NM 


vp vend aut 
OO@ Nom 


A 


o Hour 
ay 


123 Se NOt 


S/3/2 


FORMATTER 
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J 2 
MACRO V04.00 4-APR-81 18:39:56 PAGE 4-3 


DLT = 100000 DATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RMDB) 
7 (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 
CONTROL AND STATUS 1 REGISTER. (490) 


GO = 1 :GO BIT (BIT ac) 

Fl = 2 FUNCTION CODE BIT #1 

Fe = 4 sFUNCTION CODE BIT #2 

F3 = 10 sFUNCTION CODE BIT #3 

FG = 20 sFUNCTION CODE BIT #4 

F5 = 40 FUNCTION CODE BIT #5 

DVA = 4000 DEVICE AVAILABLE (BIT #11) 


DRIVE STATUS REGISTER (RMDS1) (401) 


VV = 100 ; VOLUME VALID (BIT #6) 

DRY = 200 iDRIVE READY (BIT #7) 

DPR = 400 DRIVE PRESENT (BIT #8) 

PGM = 1000 ;PROGRAMABLE (BIT #9) 

LST = 2000 LAST SECTOR TRANSFERRED (BIT #10) 

WRi = 4000 ;WRITE LOCK (BIT #11) 

MOL = 10000 ;MEDIUM ON-LINE (BIT #12) 

PIP = 20000 POSITIONING OPERATION IN PROGRESS (BIT #13) 
ERR = 40000 ; COMPOSITE ERROR (BIT #14) 

ATA = 100000 ATTENTION ACTIVE (BIT #15) 

ERROR REGISTER 401 (RMER1) (A402) 

ILF = 1 ; ILLEGAL FUNCTION (BIT #0) 

ILR =2 ; ILLEGAL REGISTER (BIT 41) ‘ 
RMR =4 REGISTER MODIFICATION REFUSED (BIT #2) 
PAR = 10 PARITY ERROR (BIT #3) 

FER = 20 FORMAT ERROR (BIT #4) 

WCF = 40 :WRITE CLOCK FAIL (BIT #5) 

ECH = 100 ;ECC HARD ERROR (BIT #6) 

HCE = 200 HEADER COMPARE ERROR (BIT #7) 

HCRC = 400 HEADER CRC_ERROR (BIT #8) 

AOE = 1000 ADDRESS OVERFLOW ERROR (BIT #9) 

IAE = 2000 ; INVALID ADDRESS ERROR (BIT #10) 

WLE = 4000 :WRITE LOCK ERROR (BIT 411) 

DTE = 10000 DRIVE TIMING ERROR (BIT #12) 

OP] = 20000 OPERATION INCOMPLETE (BIT #13) 

UNS = 40000 DRIVE UNSAFE (BIT #14) 

DCK = 100000 DATA CHECK ERROR (BIT 15) 
ZMAINTAINABILITY REGISTER (RMMR1) (#03) 

DMD = 1 ;DIAGINOSTIC MODE (BIT #0) 

MCLK =2 ;MAINTAINABILITY CLOCK (BIT #1) 

MINX = 4 ;MAINTAINABILITY INDEX (BIT #2) 

MSTCK = 10 MAINTAINABILITY SECTOR CLOCK (BIT #3) 
MRD = 20 MAINTAINABILITY READ (BIT #4) 

Mw = 40 ;MAINTAINABILITY WRITE (BIT #5) 


ea een et eet nse i sttepnmnntnewm 
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RM REGISTERS 


163 000200 DTSY = 200 ZMAINTAINABILITY SYNC DETECTED (RIT #7) 
164 
165 ZATTENTION SUMMARY PSEUDO=REGISTER (RMAS) (#04) 
166 
167 00001 ATO = 1 ;DEVICE 0 (BIT #0) 
168 000002 AT1 22 DEVICE 1 (BIT #1) 
169 000004 AT2 = 4 DEVICE 2 (BIT #2) 
170 000010 AT3 = 10 DEVICE 3 (BIT 43) 
171 000020 ATS = 20 DEVICE 4 (BIT #4) 
17 000040 ATS = 40 DEVICE 5 (BIT #5) 
173 000100 AT6 = 100 spevice 6 (BIT #6) 
1% 000200 AT? = 200 “DEVICE 7 (BIT #7) 
176 sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (405) 
7 :(EACH BIT IS CALLED BY BIT NUMBER 
1% :DRIVE TYPE REGISTER (RMDT) (#06) 
181 000001 DTOO = 1 DRIVE TYPE NUMBER BIT 1 
182 0 2 DT01 s2 DRIVE TYPE NUMBER BIT 2 
183 000004 DTO2 = 4 :DRIVE TYPE NUMBER BIT 3 
184 000010 DTO3 = 10 DRIVE TYPE NUMBER BIT 4 
185 000020 DT04 = 20 ;DRIVE TYPE NUMBER BIT 5 
1 000040 DTO5 = 40 ;DRIVE TYPE NUMBER BIT 6 
187 000100 DT06 = 100 DRIVE TYPE NUMBER BIT 7 
188 000200 DT07 = 200 DRIVE TYPE NUMBER BIT 8 
189 000400 DT08 = 400 DRIVE TYPE NUMBER BIT 9 
190 004000 DRQ = 4000 DRIVE REQUEST REQUIRED (BIT #11) 
191 020000 MOH = 20000 [MOVING HEAD (BIT #13) 
192 40000 TAP = 40000 ;TAPE DRIVE (BIT # 
195 100000 NBA = 100000 INOT BLOCK ADBRESSED. (BIT #15) 
195 OOK-AHEAD REGISTER (RMLA) (#07) 
197 000100 Sc01 = 100 SECTOR COUNT FIELD O (BIT #6) 
198 000200 §c02 = 200 *SECTOR COUNT FIELD 1 (BIT #7) 
199 00 S004 = 400 :SECTOR COUNT FIELD 2 (BIT #8) 
200 001000 §C10 = 1000 SECTOR COUNT FIELD 3 (BIT #9) 
20) 002000 §¢20 = 2000 :SECTOR COUNT FIELD 4 (BIT #10) 
203 004000 TRK1 = 4000 ;TRACK FIELD 1 (BIT #11) 
010000 TRK2 = 10000 STRACK FIELD 2 (BIT #12) 
205 020000 TRK4 = 20000 s TRACK FIELD 3 (BIT #13) 
040000 TRK10 = 40000 ZTRACK FIELD 4 (BIT #14) 
207 100000 TRK20 = 100000 : TRACK FIELD 5 (BIT 415) 
$30 OFFSET REGISTER (RMOF) (#11) 
211 000001 OFDIR = OFFSET DIRECTION 
212 002000 HCI = 2000 HEADER COMPARE INHIBIT (BIT #10) 
213 004000 ECI = 4000 sERROR CORRECTION CODE INHIBIT (BI? #11) 
sie 010000 FMT16 = 10000 FORMAT BIT (BIT #12 
216 DESIRED CYLINDER ADDRESS (RMDC) (#12) 
$18 7 (EACH BIT IS CALLED BY BIT NUMBER) 
219 ZSERIAL NUMBER REGISTER (RMSN) (#14) 


LL LLL LLL LLL LL TLE OC CTT taiainannecent teint caistiaaecettpttaa 
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gst : (EACH IS CALLED BY BIT NUMBER) 
28 7RM MAINTENANCE REGISTER #02 (RMMR2) (#15) 
$e 040000 SKI = 40000 zSEEK INCOMPLETE (BIT #14) 
F 
$58 TERROR REGISTER #02 (RMER2) 
228 100000 BSE = 100000 ;BAD SECTOR ERROR (BIT #15) 
230 ZECC POSITION REGISTER (RMEC1) (#16) 
33} : (EACH BIT IS CALLED BY BIT NUMBER) 
233 ECC PATTERN REGISTER (RMEC2) (#17) 
Sie : (EACH BIT IS CALLED BY BIT NUMBER) 
$36 SOME 1ST HEADER WORD DEFINITIONS 
238 100000 MF = 100000 ;MANUFACTURES BAD SECTOR FLAG (BIT #15) 
239 040000 UF = 40000 USERS BAD SECTOR FLAG (BIT #14) 
seo 010000 FMT = 10000 FORMAT 16 BIT MODE (BIT #12) 
ok .SBTTL RM DRIVER COMMANDS 
244 000105 SEEK = 105 7 SEEK 
245 000107 RECAL = 107 ;RECALIBRATE 
246 000111 DRVCLR = 111 DRIVE CLEAR 
267 000113 RELSE = 113 sRELEASE 
248 000115 OFFSET = 115 TOF FSET 
249 000117 RTC = 117 RETURN TO CENTER LINE 
250 000121 READIN = 121 READ IN PRESET 
251 000123 ACK = 123 sPACK ACKNOWLEDGE 
252 000131 SEARCH = 131 SEARCH 
253 000141 GETREG = 141 GET REGISTERS 
254 000143 SETFMT = 143 SET FORMAT (& ECI OR HCI) 
255 000145 SELDRV = 145 sSELECT DRIVE 
256 000151 WCKD = 151 WRITE CHECK DATA 
257 000153 WCKHD = 153 ZWRITE CHECK HEADER & DATA 
258 000161 WRTDAT = 161 ZWRITE DATA 
259 000163 WRTHD = 163 sWRITE HEADER & DATA 
260 000171 RDDAT = 171 sREAD DATA 
¢e) 000173 RDHD = 173 READ HEADER & DATA 
263 176700 ABASE = 176700 
000254 AVECT1 = 256 
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TRAP CATCHER SEQ 0025 


’ .SBITL TRAP CATCHER 


000000 .=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT" 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
at Bewetigg: CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
9001746 000000 DISPREG "ane 0 s:SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG:  .WORD 0 SOFTWARE SWITCH REGISTER 
.SBITL STARTING ADDRESS(ES) 
, 000200 000137 007012 JMP aASTART :; JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 007020 JMP @#STARTI CHANGE THE RH/RM ADDRESS 
C .SBITL ACT11 HOOKS 
ST RAAAAAMCAAKAAARARARA KATA KARAT HAHAKRAARAAAKRAAKHAARKARARHAARRAA AAA AS 
SHOOK REQUIRED BY ACT11 
000210 $SVPC=. SAVE PC 
000046 46 
000046 016352 SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 020000 “wORD 20000 2)SET oh OS 322 TO 20000 
; 000210 * =$SVPC : RESTOR 
7 001100 .=1100 
g "SBITL APT PARAMETER BLOCK 
J CREAR RARER EKER AREA EAE RARER EARTH EEE RARER 
‘SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SLA RRR REE EEA EEE EERE RRR KERR EERE RK AKER EEE REE EE 
001100 .$X=.  ;; SAVE CURRENT LOCATION 
000024 "=24  ::SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ¢:FOR APT START UP 
000044 "=44 = 2:POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 $APTHDR ::POINT TO APT HEADER BLOCK 
001100 .=.$X  ::RESET LOCATION COUNTER 
FLERE EERE ER EE EERE EEK EERE EEE KEE KEE EERE RARE EERE ERR 
TSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
TINTERFACE SPEC. 
001100 $APTHD: 
001100 000000 $HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 001210 $MBADR: .WORD $MAIL  ::ADDRESS OF APT MAILBOX (BITS 0-15) 
001104 002734 $TSTM: .WORD 1500. ::RUN TIM OF LONGEST TEST 
001106 002734 SPASTM: [WORD 1500.  :RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 002734 SUNITM: [WORD 1500. "ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
001112 00032 "WORD  $ETEND-$MAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
9 001114 TAB.XY=. *(MTAGSTARTING ADDRESS 


CZ7RMLBO RMOS/3/2 FORMATTER 
C N TAGS 


OMMCG! 
0 
001114 
001114 
001114 000000 
001116 000 
091117 
001120 000000 
001122 0600000 
001124 000000 
001126 000000 
001130 000 
001131 «001 
001132 000000 
001134 000000 
601136 000000 
001140 000000 
001142 000000 
001144 000000 
001146 000000 
001150 000 
001151 000 
001152 000000 
001154 177570 
001156 177570 
001160 177560 
001162 177562 
001164 177564 
001166 177566 
001170 000 
001171 002 
001172 012 
001173 000 
001174 000000 
001176 000000 
001200 207 
001204 077 
001205 015 
001206 012 
4 
001210 
001210 000000 
001212 000000 
001214 000000 
001216 00000: 
001220 00000 
001222 00000 
001224 000000 
001226 
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-SBITL COMMON TAGS 


Rei ee eeeee Ree SSSR SRARRRRRRRRRRERRERAR SAREE RARER ARRAS ERE ERR ESSE ES 


t*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


7*USED IN THE PROGRAM. 


3aSTART OF 


37 CONTAINS 
ii CONTAINS 
7 CONTAINS 
3 CONTAINS 
3. CONTAINS 
32 CONTAINS 
7: CONTAINS 
2: CONTAINS 
7 CONTAINS 
37 CONTAINS 
7: CONTAINS 
tz CONTAINS 
3 CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD* DATA 
"GOOD' DATA 

"RAD' 


DATA 
;sRESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


3 sADDRESS OF SWITCH REGISTER 
;zADDRESS OF DISPLAY REGISTER 
i::TTY KBD STATUS 

3zTTY KBD BUFFER 

izTTY PRINTER STATUS REG. ADDRESS 
isTTY PRINTER BUFFER REG. ADDRESS 


1: CONTAINS 


NULL CHARACTER FOR FILLS 


:eCONTAINS # OF FILLER CHARA“TTERS REQUIRED 
i2INSERT FILL CHARS. AFTER A ‘LINE FEED" 
i2°'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES) 


::USER DEFI 


NED 


3 ESCAPE ON ERROR ADDRESS 
3zCODE FOR BELL 
5 ;QUESTION MARK 


33 CARRIAGE 


RETURN 


:cLINE FEED 


ee eee eee ei se ei eS ESSE SASSSELSAS SAS AAE SESE SS SAAS ASA RA SSS SSS SS SS 


DDO III IOI III III IOI SOI OIOUIIOIOIOOIOIOIOOTIOOIOIIIOIOR IOI TOTTI tOk 


-=TAB.XY 
$CMTAG 
-WORD 0 
$TSTNM: .BYTE QO 
$ERFLG: .BYTE 0 
$ICNT: .WORD 0O 
$LPADR: .WORD 0 
$LPERR: .WORD 0 
$ERTTL: .WORD 0 
SITEMB: .BYTE 0 
$ERMAX: .BYTE 1 
$ERRPC: .WORD 0 
$GDADR: .WORD 0 
$BDADR: .WORD 0 
$GDDAT: .WORD 0 
$BDDAT: .WORD 0 
-WORD 0O 
-WORD 0 
$AUTOB: .BYTE 0 
$INTAG: .BYTE 0 
»WORD 0 
SWR: -WORD DSwWR 
DISPLAY: .WORD DDISP 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$NULL: .BYTE 0O 
$FILLS: .BYTE 2 
SFEILLECs: LB¥tE 12 
$TPFLG: .BYTE 0 
T™MPO: .WORD 0 
$ESCAPE :0 
377 377 $BELL: .ASCIZ <207><377><377> 
$QUES: .ASCII /?/ 
$CRLF: ASCII <15> 
v00 $LF: ASCIZ <12> 
.SBTTL APT MAILBOX-ETABLE 
~ EVEN 
SMAIL 
S$MSGTY: .WORD AMSGTY 
SFATAL: .WORD AFATAL 
$TESTN: .WORD ATESTN 
$PASS -WORD APASS 
$DEVCT: .WORD ADEVCT 
$UNIT -WORD AUNIT 
$MSGAD: .WORD AMSGAD 
$MSGLG:..WORD AMSGLG 


; APT MAILBOX 
:iMESSAGE TYPE CODE 
::FATAL ERROR NUMBER 
- :2TEST NUMBER 
:zPASS COUNT 
;zDEVICE COUNT 
321/0 UNIT NUMBER 
: MESSAGE ADDRESS 
:zMESSAGE LENGTH 


SEQ 002+ 


Z2RMLBO RMOS/3/2 FORMATTER 
SPT MAI _ BONE TASLE 


001230 SETABLE: 
001230 000 SENV: .BYTE AENV 
001231 000 SENVM: .BYTE AENVM 
001232 000000 $SWREG: .WORD ASWREG 
001234 000000 $USWR: .WORD  AUSWR 
0012356 000000 $CPUOP: .WwORD ACPUOP 
** 
001240 000 $MAMS1: .BYTE AMAMS1 
001241 000 $MTYP1: .BYTE  AMTYP1 
te 
001242 000000 $MADR1: .WORD AMADR1 
001244 000 $MAMS2: .BYTE MAMS2 
001245 000 $MTYP2: .BYTE AMTYP2 
001246 000000 $MADR2: .WORD AMADR2 
001250 000 $MAMS3: .BYTE AMAMS3 
001251 000 SMTYP3: .BYTE AMTYP3 
001252 000000 $SMADR3: .WORD AMADR3 
0017254 000 $MAMS4: .BYTE AMAMS4 
001255 000 $MTYP4: .BYTE  AMTYP4 
001256 000000 SMADR4: .WORD AMADR4 
001260 254 $VECT1: .WORD AVECT1 
1262 $VECT2: .WORD AVECT2 
001264 176790 $BASE: .WORD ABASE 
1266 000000 SDEVM: .WORD ADEVM 
001270 000000 $CDW1: .WORD ACDW1 
001272 000000 $CDW2 -WORD ACDW2 
001274 $E TEND 
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73APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
:zENVIRONMENT MODE BITS 
:zAPT SWITCH REGISTER 
thi SWITCHES 
3CPU TYPE,OPTIONS 
Bits 15- -11=CPU TYPE 
11/04=01,11/05=02.11/20=03,11/40=04,11/45=05 
11/70= 06; ve Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT * caleaceal 
BIT &=MEMORY MANAGEMENT 
3:HIGH ADDRESS.M.S. BYTE 
7aMEM, TYPE ,BLKAI 
MEM.TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
32HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR. =3 yh ee THIS WORD AND LOW OF ‘"TYPE'’ ABOVE 
7zHIGH ADDRESS,M.S. 
::MEM. TYPE .,BLKA2 
7 :MEM.LAST ADDRESS ,BLK#2 
7;HIGH ADDRESS,M.S.BYTE 
77MEM. TYPE ,BLKA3 
73;MEM.LAST ADDRESS ,BLK&5 
;;HIGH ADDRESS,M.S.BYTE 
7 MEM. TYPE ,BLKAS 
73MEM.LAST ADDRESS,BLK&4 
: INTERRUPT VECTOR#1,BUS PRIORITYA41 
:: INTERRUPT VECTOR#2BUS PRIORITY42 
:;BASE ADDRESS OF EQUIPMENT UNDER TEST 
7 DEVICE MAP 
7; CONTROLLER DESCRIPTION WORDA1 
7: CONTROLLER DESCRIPTION WORD&2 
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001356 


001360 
001362 
001 


176700 


000106 
000102 


000000 
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-SBTTL USER DEFINED TAGS 


SRMADR: .WORD 
SRMVEC: .WORD 
$LKCSR: .WORD 
$LKCSB: .WORD 
$LPVEC: .WORD 
LKS: . WORD 
$LLVEC: .WORD 
DRIVE =$UNIT 
SOFSW: .WORD 
E: . WORD 
SNGSEC: .WORD 
LSTRK: .WORD 
MAXCYL: .WORD 
MINCYL: .WORD 
MAXTRK: .WORD 
MINTRK: .WORD 
PATA: . WORD 
PATB: . WORD 
RETRY: .WORD 
BADSEC: .WORD 
SAVWC: .WORD 
wC . WORD 
C . WORD 
HEDERR: .WORD 
SEC30: WORD 
MAMSEC: .WORD 
DS.CYL: .WORD 
DS.TRK: .WORD 
DDRIVE: .WORD 
ATIN: » WORD 
CNTLC:  .WORD 
CHGADR: .WORD 
: . WORD 
DEVMP: .WORD 
BSFAVL: .WORD 
UPDBSF: .WORD 
HDRBIT: .WORD 
XXDP: . WORD 


176700 ;RH/RM UNIBUS ADDRESS 

254 3RH/RM_ INTERRUPT VECTOR 

172540 ;ADDRESS OF KW11-P CSR 

172542 ;ADDRESS OF KW11-P COUNTER BUFFER 
104,106 ;ADDRESS OF KW11-P VECTOR 

177546 SADDRESS OF KW11-L CONTXOL REGISTER 
100,102 :ADDRESS OF KW11-L VECTOR 


CONTAINS DRIVE NUMBER UEC re 
SAME PARAMETER USED IN A 
: CONTENTS ARE FOR SOFTWARE. ee 
FORMAT= 0, VERIFY HEADERS= 1 
TREAD MULTI=SECTOR= 0, READ SINGLE SECTOR= 1 
CONTAINS THE as TRACK OF THE UNIT UNDER 
:TEST. RMO2/3= 4,, RMOS= 18. 
ZENDING CYLINDER — 
STARTING CYLINDER 
sENDING TRACK 
; STARTING TRACK 
55555 ;1ST WORD OF PATTERN (WCP) 
33333 52ND WORD OF PATTERN (WCP) 
MAINTAINS # OF WRITE RETRIES Seay 
; CONTAINS LAST BAD SECTOR ON FORMA 
SCONTAINS WC FOR REMAINING SECTORS "ON ERROR 
:30 OR 32 SECTOR TRACK SIZE (IN WORDS) 
z2°S COMPLEMENT OF ‘wC' 
:POSITIONING ERROR DURING FORMAT INDICATOR 
:30 OR 32 SECTOR MODE INDICATOR 


ooooooo--oC000o COCO 


DE) 
;MAXIMUM SECTOR ADDRESS, 29. FOR 18. BIT MODE OR 
331. FOR 16 BIT MODE 
[ADDRESS OF CURRENT CYLINDER 
ADDRESS OF CURRENT TRACK 
;DRIVE NUMBER OF ‘“DRIVER' ERROR MESSAGES 
ATTENTION REGISTER IMAGE FOR ‘DRIVER’ 
ERROR MESSAGES 
ADDRESS OF **C* RETURN 
; "CHANGE RH/RM ADDRESS" FLAG= 1 
;WRAP AROUND FLAG,FORMAT FROM HIGH TO LOW 
; CYLINDER NUMBER 
0 :DEVICE MAP FOR APT, DEVMP+2 IS STORAGE Bre DEVICE MAP 
:1F > 0, BAD SECTOR FILE AVAILABLE FROM PACK 
:IF > 0. UPDATE BAD SECTOR FILE AT ‘EOP’ 
R BIT INDICATOR FOR FIRST HEADER WORD; 
1 AND B1T14=1, GOOD SECTOR 
; O AND BIT14=1, MFG BAD SECTOR 
;B1T15=1 AND BI1T14=0, USR BAD SECTOR 
0 ; THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
> "XXDP* DEVICE CODE THE RMO5/3/2. 


Oooo o-Oo cooce oOo 


THIS TABLE WILL CONTAIN A COPY OF THE 16 BIT "MFG" FILE 


MFGI6: .BLKW 


256. MFG 16 BIT BAD SECTOR TABLE 


002414 
002416 


005566 
005570 


7RMLBO RMO5/3/2 FORMATTER 
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177777 
177777 


W77777 
177777 


177777 
177777 


177777 
177777 


177777 
000000 
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-WORD -1 
«WORD ==? 


THIS TABLE WILL CONTAIN A COPY OF THE 18 BIT “MFG FILE 
MFG18: .BLKW 256. MFG 18 BIT BAD SECTOR TABLE 

«WORD -1 

-WORD =1 
THIS TABLE WILL CONTAIN THE 16 BIT ‘USR' FILE IF PACK IS BEING FORMATTED 
IN 16 BIT MODE; ELSE THIS TABLE WILL CONTAIN THE 18 BIT ‘USR® FILE IF THE 
PACK IS BEING FORMATTED IN 18 BIT MODE 
USTAB: .BLKW 256. USER BAD SECTOR TABLE 

-WORD  -1 

-WORD =1 
THIS TABLE WILL SAVE THE 18 BIT "USR* FILE IF PACK IS BEING FORMATTED 
:IN 16 BiT MODE; ELSE THIS TABLE WILL SAVE THE 16 BIT ‘USR® FILE IF THE 
PACK IS BEING FORMATTED IN 18 BIT MODE 


USSAV: .BLKW 256. ;USER BAD SECTOR SAVED TABLE 
WORD -1 


-WORD <1 
:CONTAINS A LIST OF CURRENT BAD SECTORS ON THE TRACK BEING FORMATTED 
SECCU: BLK 32. ;MAXIMUM OF 32. BAD SECTORS 
NEXT: :WORD 0 FLAG, IF NEXT==1,ALL GOOD SPOT ON 


THE CURRENT TRACK ARE FORMATTED 
;DATA/PARAMETER BLOCK - USED FOR ALL DRIVE OPERATION 


: CYLINDER ADDRESS 

M.REG ;ERROR TABLE POINTER 

: STATUS~ERROR INDICATOR 
;BIT 15 = : ERROR OCCURRED 
:BIT 07 = DONE 

BIT 14- 10. AND BIT 06-03 

: INDICATE TYPE OF ERROR 


;RH/RM REGISTERS STORED HERE AFTER AN OPERATION 


FMTDPB: .BYTE 0 7DRIVE NUMBER 
-BYTE Q : OFF SET VALUE OR FMT16, ECI, AND HC] 
eryte: Qe ; COMMAND 
-BYTE 0O :PSEL AND A17 AND A16 
WOR 0 ;WORD COUNT (NEG) 
-WORD 0 :BUFFER ADDRESS 
VTE O SECTOR ADDRESS 
«BYTE 5! 7 TRACK ADDRESS 
Ri 


= 
2 
oS 
°o 


RM.REG: .WORD 0 >RMCS1 
WORD 0 >RMWC 
«WORD 0 ; 
. WORD 0 :RMDA 
-WORD 0 =RMCS2 
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005572 000000 «WORD OQ 3 RMDS 
005574 000000 WORD 0 sRMER1 
005576 000000 «WORD Q 7RMAS 

990000 é 0 RMLA 
905602 000000 “ A) 7 RMDB 

000000 wORD 0Q 7 RMMR1 
005606 000000 wORD 0 7RMDT 
005610 006000 -WORD OQ 7 RMSN 
005612 000000 wORD 0 y RMOF 
905614 000000 WORD 0 3RMCA 
005616 000000 WORD Q 7 RMDC 
005620 000000 wORD 0 7 RMERZ 
065622 000000 WORD Q 7 RMMR2 
005624 000000 -WORD 0 RMEC1 
005626 000000 WORD OQ RMEC? 
095630 000 FMTWRT: BYTE 0 sSPECIAL DPB TO WRITE HEADER OF BAD SECTOR 
005631 000 -BYTE Q 
005632 000 BYTE QO 
C05633 000 BYTE QO 

634 177776 -WORD <=-2 sONLY TWO WORDS FOR HEADER 
005636 046224 «WORD RBUF ;BUFFER ADDRESS 
0 000 «BYTE - @ : SECTOR 
005641 000 BYTE 0 7 TRACK 
005642 000000 -WORD QO [CYLINDER ADDRESS 
005644 000000 WORD 0 ZERROR TABLE 
DONT’ “SAVE ANYTHING © 

005646 000000 -WORD 0 STATUS WORD 


7PARAMETER LIMIT POINTER TABLE 


005650 005754 007466 001330 TABLE: PAR1.822..MINCYL 

005656 005764 001466 001326 PAR2 B22. .MAXCYL 

005664 905774 000004 001334 PAR3,4. ,MINTRK 

005672 006004 000004 001332 PAR4.4. .MAXTRK 0 

905702 006014 TABLE2: PARS SASCIZ MESSAGE FOR INPUT 
005704 001466 001362 822. .DS.CYL 

005710 000004 001364 4. ,D5. TRK 

005714 000037 001344 31. ,BADSEC 

005720 006014 TABLE3: PARS sASCIiZ MESSAGE FOR INPUT 
005722 001466 001362 822. .DS.CYL 

005726 000004 001364 4. .DS.TRK 

005732 000035 001344 29: ,BADSEC 

005736 006032 TABLES: PAR6 ZASCI7 MESSAGE FOR INPUT 
005740 001466 001362 822. «DS. C¥L 

005744 000004 001364 4,05, TRK 

005750 047300 001344 26160. ,BADSEC 


sASCIIT MESSAGES FOR ADDRESS PARAMETERS 


005754 115 177 116 PART: .ASCIZ /MINCYL / 
005 764 115 101 130 PAR2: .ASCIZ /MAXCYL / 
005774 TTS 111 116 PARS: .ASCIZ /MINTRK / 

115 101 130 PARS: eASCIZ = /MAXTRK / 


selenite 


006014 
096032 


006052 
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021624 
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021676 


PARS: 
PAR6: 
EVEN 
TARCAL: 
sSECTOR 


ADRTBL: . 


-ASCIZ 
-ASCIZ 


. WORD 


ZREMAINING WORD 


wCTBL: WORD 


F 
18:39:56 PAGE 


/CYL, TRK,SEC= 
/CYL, TRK BYTE= 


3 
7=3 


FUNCT2,FUNCT3,.FUNCTS .FUNCT6,FUNCT7 


BUFFER ADDRESS TABLE 


Bur P sADDRESS OF 
BUFP+<5i6.*1.> ;ADDRESS OF 
BUFP+<516.*2.> ;ADDRESS OF 
BUFP+<516.*3.> ;:ADDRESS OF 
BUFP+<516.*4.> ;ADDRESS OF 
BUFP+<516.*5.> ;ADDRESS OF 
BUFP+<516.*6.> ;ADDRESS OF 
BUFP+<516.*7.> ;ADDRESS OF 
BUFP+<516.*8.> ;ADDRESS OF 
BUFP+<516.*9.> ;ADDRESS OF 
BUFP+<516.+10.> ;ADDRESS OF 
BUFP+<516.*11.> ;ADDRESS OF 
BUF P+<516.*12.> ;ADDRESS OF 
BUF P+<516.*13.> ;ADDRESS OF 
BUFP+<516.*14.> ;ADDRESS OF 
BUFPS<s16.215.> ; ADDRESS OF 
BUF P+<516.*16.> ;ADDRESS OF 
BUFP+<516.*17.> ;ADDRESS OF 
BUFP+<516.*18.> ;ADDRESS OF 
BUFP+<516.*19,> ; ADDRESS OF 
BUFP+<516.*20.> ;ADDRESS OF 
BUF P+<$16.*21.> ;ADDRESS OF 
BUFP+<516.*22.> ;ADDRESS OF 
BUFP+<516.*23.> ;ADDRESS OF 
BUFP+<516.*24.> ; ADDRESS OF 
BUF P+<516.*25.> ; ADDRESS OF 
BUFP+<516.*26.> ;ADDRESS OF 
BUF P+<516.*27.> : ADDRESS OF 
BUFP+<$16.*28.> : ADDRESS OF 
BuFP+<516.*29.> ;ADDRESS OF 
BUFP+<516.*30.> ;ADDRESS OF 
BUF P+<516.*31.> :ADDRESS OF 
COUNT TABLE 
‘ ZREMAINING 
258.+<258.*1.> ;REMAINING 
258.+<258.*2.> =REMAINING 
258.+<258.%3.> ;REMAINING 
258. +<258.%4.> ;REMAINING 
258. +<258.*5.> :REMAINING 
258.+<258.*6.> ;REMAINING 
8.+<258.*7.> ;REMAINING 
258.+<258.*8.> ;REMAINING 
258.4+<258.*9.> ;REMAINING 
258.+<258.+10.> ; REMAINING 
258.4*<258, *11.> ZREMAINING 
258. 4<258.#12.> sREMAINING 


SECTOR 


NON +3 2 OW NOUS WI -O 
oa 8 * 


AOWOONAWUSWH—O 


AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTER 
AFTES 
AFTER ° 
AFTER 


SECTOR 


SFC TOR 


0 
Te 
2. 
a 
é. 
S. 
6. 
= 
8. 
9 
1 
1 


)—a aoe 


2. 
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006216 0070 WORD 258. +<258.%13.> ;REMAINING WORD COUNT AFTER SECTOR 13 

906220 007436 WORD 258. *<258.*14.> [REMAINING WORD COUNT AFTER SECTOR 14 

006222 010040 wORD 258.+<258.*15.> ;REMAINING WORD COUNT AFTER SECTOR 15 

006224 0104642 wORD 258.+<258.*16.> ;REMAINING WORD COUNT AFTER SECTOR 16 

006226 011044 wORD 258. +<258.*17.> ;REMAINING WORD COUNT AFTER SECTOR 17. 
011446 WORD 258.+<258.*18.> ;REMAINING WORD COUNT AFTER SECTOR 18 

006232 012050 WORD 258.+<258.*19.> ;REMAINING WORD COUNT AFTER SECTOR 19 

2 012452 WORD 258. +<258.*20.> ;REMAINING WORD COUNT AFTER SECTOR 20 

013054 WORD 258.+<258.%21.> ;REMAINING WORD COUNT AFTER SECTOR 21 

006240 013456 WORD 258.+<258.%*22.> ;REMAINING WORD COUNT AFTER SECTOR 22 

00624 014060 WORD 258.+<258.*23.> ;REMAINING WORD COUNT AFTER SECTOR 23 

006244 014462 wORD 258.+<258.*24.> ;REMAINING WORD COUNT AFTER SECTOR 24 

006246 015064 WORD 258.+<258.*25.> ;REMAINING WORD COUNT AFTER SECTOR 25 

006250 015466 WORD 258. +<258.*26.> “ REMAINING WORD COUNT AFTER SECTOR 
016070 WORD 258.+<258.%27.> ;REMAINING WORD COUNT AFTER SECTOR 27 

006254 016472 . WORD 258.+<258.*28.> ;REMAINING WORD COUNT AFTER SECTOR 

006256 017074 .-WORD 258.+<258.*29.> ;REMAINING WORD COUNT AFTER SECTOR 

006260 017476 «WORD 258. +<258.*50.> sREMAINING WORD COUNT AFTER SECTOR 3 

006262 — 020100 .- WORD 258. +<258.*31.> * REMAINING WORD COUNT AFTER SECTOR 

006264 001166 BYTE16: .WORD 630. 

006266 002354 «WORD 630.+<6350.*1.> 

006270 003542 -WORD 630.+<630.+*«2.> 

006272 004730 «WORD 630.+<630.*3.> 

006274 006116 . WORD 630. +<630.*4.> 

006276 (007304 . WORD 630.+<630.*5.> 

006300 010472 -WORD 630.+<630.*6.> 

006302 011660 «WORD 630.+<630.*7.> 

006304 013046 -WORD 630.+<630.*8.> 

006306 014234 -WORD 6350.+<6350.*9,> 

006310 015422 . WORD 630.+<630. #10.> 

006312 016610 «WORD 630.+<630.*11.> 

006314 017776 . WORD 630. +<630.*12.> 

006316 021164 «WORD 630. +<630.*13.> 

006320 0223552 -WORD 6350.+<630.*14.> 

006322 023540 «WORD 630.4+<630.*15.> 

006324 024726 «WORD 630.+<630.*16.> 

006326 026114 -WORD 630.+<630.*17.> 

006330 027302 -WORD 6350.+<630.*18.> 

006332 030470 -WORD 630.+<630.#19.> 

006334 031656 «WORD 630.+<630.*20.> 

006336 033044 -WORD 630.+<630.*21.> 

006340 034232 -WORD 630.+<630.*22.> 

006342 035420 «WORD  630.+<630.*23_> 

006344 036606 -WORD 630.+<630.*24.> 

006346 037776 «WORD 630.+<630.*25.> 

006350 041162 -WORD  630.+<630.*26.> 
042350 . WORD 630. +<630.*27.> 

006354 043536 -WORD 630.+<630.+*28.> 

006356 044724 -WORD 630.+<630.*29.> 

006360 046112 -WORD 630.+<630.*30.> 

006362 0647300 «WORD 630.+<636.*31_> 

006364 001240 BYTE18: .WORD 672. 

006366 002500 . WORD 672.+<672.*1.> 

006370 003740 «WORD 672.+<672.*2.> 


006372 065200 «WORD 672.+<672.*3.> 


eeeeee 


sneer sesiseenternpsonensneasnan 


ISER DEFINED TAGS 


“7RMLBO RMO5S/3/2 FORMATTER 


~EVEN 


oa 
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672.*<672.*4.> 
672.*<672.*5.> 
672.*<672.*6.> 
672.+<672.*7.> 
> 
> 


pe eel g 
672.+<672.* 
672.+<672. 
672.+<672. 
672.+<672. 
672.+<672. 
672.+<672. 
672.+<672.*) 
«*SO7 2. 
-+<672. 


672.+<672.*25. 
672.+<672.*26. 
672.+<672.*27. 
672.+<672.*28. 
672.+<672.*29, 


i. aie 2-8 8 ee ee 6 et 
VVVVV VV VV VV VV MOOV VV VV 


, § 
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FRROR POINTER TABLE S£0 
.SRBTTL ERROR POINTER TABLE 
7*THIS TABLE CONTAINS THE INFORMATION FOR FACH ERROR THAT CAN OCCUR. 
S*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND JN 


i sLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ts 5 PERTINENT. : 
; *NOTE1 If SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRP 


: eNOTE2: EACH ITEM IN THE TABLE CONTAINS © POINTERS FAPLAINED AS FOLLOWS: 
:* =M szPOINTS TO THE ERROR MESSAGE 
te DH SIPOINTS TO THE DATA HEADER 
ie DT SIPOINTS TO THE DATA 
7” DF ZiPOINTS TO THE DATA FORMAT 
, 006460 SERRTA: 
‘ ERROR 1 
4 006460 042446 EM :RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 
§ 606462 043734 DH1 
6 906464 045270 p11 
7 006466 045662 DF1 
3 ERROR 2 
11 006470 042520 EM2 [UNEXPECTED ATTENTION OCCURRED 
12 006472 044002 DH? 
13 006474 045306 pT? 
14 006476 045646 DF? 
18 ERROR 3 
18 006500 042556 EM3 »MASSBUS PARITY ERROR (MCPE=1) 
19 006502 044054 DH3 
20 006504 045322 DT3 
21, 006506 045652 DFS 
23 TERROR 4 
25 006510 042614 EMG :MASSBUS PARITY ERROR (PAR=1) 
006512 044125 DHS 
57 006514 045336 bT4 
28 006516 045656 DFS 
" ZERROR 5 
32 006520 000000 0 UNUSED 
33 006522 000000 0 
4 006524 000000 9 
$5 006526 9 
$n ZERROR 6 
39 006530 042705 EMG RH CONTROLLER DIDN'T RESPOND TQ ADDRESSING 
40 006532 044210 DH6 
4) 006534 045354 D16 
42 006536 045662 DFG 


“2RML BO RMO5/3/2 FORMATTER 


FRROR POINTER TABLE 


46 006540 042760 


49 006546 045752 


50 

57 

52 

53 006550 043034 
54 006552 044223 


67 006570 043110 
68 006572 044225 

045366 
70 006576 045666 


74 006600 043153 
75 0066 044223 


? 
88 006620 047217 
89 006622 044223 
90 006624 045366 
91 006626 045666 
92 
93 
9% 
95 006630 043263 
96 006632 044223 
97 006634 045566 
98 006636 045666 


sERROR 7 
EM? 
DH23 
DT7 
DF 25 

ZERROR 10 


# § 
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sTRACK/SECTOR FIELD IN HEADER IS NOT CORRECT 


sDRIVE OFFLINE 


PERSISTENT DRIVE UNSAFE ERROR 


sUNCORRECTABLE MASSBUS PARITY ERROR 


SOFTWARE TIMEOUT 


:DRIVE UNSAFE ERROR 


SCONTROLLER/DRIVE ERROR DURING WRITE 


7 CONTROLLER/DRIVE ERROR DURING WRITE CHECK 


C7RMLBO RMO5/3/2 FORMATTER 


ERROR POINTER TABLE 


: 
o 


— 3 tt nt 0 a dS es gg 3 4 ss to SS a te 
MEW 


BWW UWA A MAUR @ 2 2m OOO 


Ooo N 
° 
& 
> 
i) 


140 006716 


144 006720 
145 006722 
146 006724 
147 006726 


043335 
044452 
045440 
045702 


043413 


045706 


043451 


045666 


043522 


045666 


043572 


045752 


043642 


045752 


sERROR 17 


x 3 
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sRETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTARLE 


DATA ERROR DURING WRITE CHECK 


;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 


z"HCE" OR "HCRC' ERROR VERIFYING HEADERS 


:CYLINDER FIELD IN HEADER IS NOT CORRECT 


;WRITE CHECK ERROR 


ILLEGAL BAD SECTOR 


SEG 0046 


ZRMLBO RMOS/3/2 FORMATTER 
INTER TABLE 


FRROR PO 


a0 00 te eo a 
~—ODOWNAWL inn 


00 
007070 
007074 


907210 
007212 


012737 
012737 


000240 
012737 
005227 
001375 
000005 


012706 


012706 
012737 


N 


46 


Z ggeece 
+ 
Mm 


NO =fMoMNWw 
OQ 
w 


NE ONNNN 
N 
~N 


So 
~ 
Oo 


006744 


001270 


000001 
177777 


000001 
000000 


001114 
001154 
001100 
023330 


000004 
007212 
177570 
177570 
177777 


007220 


= 
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001374 
001270 


001214 


000030 


7 THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: wy 


(SP) ,RO 


+ SAVE PC WHERE THE TIME OUT OCCURED 
ADJUST PC =2 
“RESTORE STACK POINTER 


ia TYPE ASCIZ STRING 


sGET OVER THE > 


64$ 

<CRLF >/UNEXPECTED® BUS TIMEOUT, PC=/ 

;SETUP FOR TYPING OUT PC 
sPUT ‘HALT(O)" INSTRUCTION HERE IF YOU WISH 


:TO STOP ON UNEXPECTED TIMEOUT. 
;BRANCH TO START 


:DISABLE USE OF UTILITY ROUTINES 


;ENABLE CHANGE OF 'RH/RM BUS ADDRESS’ 
; ENABLE USE OF UTILITY ROUTINES 


ERE ERE AERA EERE EERE AEC AKER REE RARER EERE 


33SET TEST NUMBER IN APT MAIL BOX 
;TTY LOOP, WAIT FOR INCREMENT 

OF WORD 

;CLEAR THE WORLD 


ST -(RO) 
CMP (SP) +, (SP)¢ 
TYPE ,05$ 
72658 eASCIZ 
64%: 
V RO,-(SP) 
TYPOC 
NOP 
BR TST1 
.SBTTL START OF PROGRAM ~ 
START CLR $CDW1 
BR TST1 
START1: MOV #1, CHGADR 
MOV #-1,$CDwW1 
TST1: NOP 
MOV #1, $TESIN 
INC #0 
BNE 74 
RESET 
-SBITL INITIALIZE THE COMMON TAGS 


THE COMMON TAGS ($CMTAG) AREA 


ASCMTAG,RO 


(R6) + 
WSR. R6 


WSTACK, SP 
:s INITIALIZE A FEW VECTORS 


:;FIRST LOCATION TO BE CLEARED 
: CLEAR MEMORY LOCATION 

:SLOOP BACK IF NO 

SETUP THE STACK POINTER 


ASERROR,@MEMTVEC ; EMT VECTOR FOR ERROR ROUTINE 
#340, QWEMTVEC+2 ;:LEVEL 7 

#STRAP aA TRAPVEC ::TRAP_VECTOR FOR TRAP CALLS 
#340 ,QATRAPVEC+2;LEVEL 7 

ASPWRON , AAPWRVE C ioae VECTOR 


#340, QNPURVEC #2 ; 


SESCAP 
#1, 


LEVEL 
>: CLEAR THE ESCAPE ON ERROR ADDRESS 
ONE ERROR PER TEST 


MOVB SERMAX 3 sALLOW 
riSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


32 EQUAL - AT", 
@AERRVEC ,- (SP) 
#64$ , AMERRVEC 
ADSWR , SWR 
#DDISP,DISPLAY 


643: 


#-1 ,aSWR 
66$ 


65$ 
#65$, (SP) 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


ees ERROR VECTOR 

;SET UP ERROR VECTOR 

;SETUP FOR A HARDWARE SWICH REGISTER 
:ZAND A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 

: BRANCH IF NO TIMEOUT TRAP OCCURRED 

AND THE HARDWARE SWR IS NOT = -1 

‘BRANCH IF NO TIMEOUT 
77SET UP FOR TRAP RETURN 


SEQ 0057 


“7RM_BO RMO5S/3/2 FORMATTER 
INITIALIZE THE 


83 


007276 
007 206 


007304 
007310 
007352 
007352 


22 
007526 


COMMON TAGS 


112737 


005037 


005046 
113716 
104403 

001 

000 
104401 
000517 


600176 
000174 
000004 


001216 
000200 
001232 


006730 
000300 


177777 
007312 


000042 
001230 
001154 


000001 


001412 
000016 


000040 
000007 


001412 
000042 


007464 


001412 


001205 


MACRO V04.00 


000601 
000176 


001150 


900041 


001412 
001412 
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:iPOINT TO SOFTWARE SwR 
2sRESTORE ERROR VECTOR 


sz CLEAR PASS COUNT 
i: TEST USER SIZE UNDER APT 
32 YES,USE NON-APT SWITCH 


33NO,USE APT SWITCH REGISTER 


TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
ae og _ UNEXPECTED TIMEOUT 


FIRST TIME? 


BRANCH IF NO 
ci ASCIZ STRING 


T OVER THE ASCIZ 


68$ 
<CRLF>@CZRMLBO - * am05 37D FORMAT TER@<CRLF > 


ARE WE RUNNING UNDER XXDP/ACT? 

S:BRANCH IF YES 

2 ¢ARE WE RUNNING UNDER APT? 
BRANCH IF YES 

SOF TWARE _e REG SELECTED? 
:BRANCH IF N 

3:GET SOFT -SUR SETTINGS 


3zSET AUTO-MODE INDICATOR 


RT] 
65$: MOV #SWREG. SR 
MOV #DISPREG. DISPLAY 
66$: MOV (SP) + ,@MERRVEC 
CLR $PASS 
BITB #APTSIZE,.SENVM 
BEQ 67$ 
MOV #SSWREG, SWR 
67$: 
ZSETUP ‘TIMEOUT’ 
MOV #BADTMO.ERRVEC 
MOV #PR6,ERRVEC+2 
ue TYPE PROGRAM NAME 
: TYPE ee ee PROGRAM IF BA PASS 
IN 
BNE 68$ 
TYPE ,O9$ 
BR 
2269%: .ASCIZ 
68$: 
.SBITL ei Cguee SOF TWARE ~~ REGISTER 
BNE 70$ 
CMPB SENV,41 
BEQ 70$ 
CMP SWR ,ASWREG 
BNE 71$ 
GTSWR 
BR 71$ 
i MOVB #1,$AUTOB 


THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


es: 


3373$: 
72$: 


ef 


1 


) 
XXDP, (SP) 


0 
.$CRLF 
4$ 


:CLEAR *XXDP" LOAD DEVICE STORAGE 
is la AN RMO5/3/2 ? 


[GET DEVICE INDICATOR AND NUMBER 
{1S 17 A VALID NUMBER ? 


Po 
NO, DEFAULT TO DRIVE 0 
;CHAIN MODE OR ACT11 AUTO ACCEPT ? 
7BR IF NEITHER 
22 TYPE ASCIZ STRING 
sGET ig THE ASCIZ 


2 
<CRLF>/NOT TESTING DRIVE / 


CLEAR WORD ON STACK 
:GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 
;SUPRESS LEADING ZEROS 


ZCR=LF 
:GET NUMBER OF DRIVES 


3€Q 0038 


93 


2 ee re 
AVLSBSSLEEL 


007666 
007666 
007672 
607766 


007766 
007774 


010000 
4 


COCOCOoOoCCoooCoCooo 
par reer Pree Prree oes “Paw Pir Paar Pear per he Par par 
COSCSCCCOCOCOOSGOO 
dk el ae ed ad ed ed ad ed eee ed od 

CHEMUAKRALOSOFO 


LSE CN SSS 


005227 
001114 
104401 
000419 


005046 
113716 
104403 

001 


000 
104401 
000431 


104401 
000435 


012737 
004737 


105737 


013737 
105737 


013737 


004737 


CZ7RMLBO RMOS/3/2 FORMATTER 
GET VALUE FOR SOF TWARE 


N 3 
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SWITCH REGISTER 


177777 
007544 


001412 


007604 


007674 


007012 
024414 


001150 
045756 
001274 
001276 
001230 
001260 
001260 
001276 
001264 


001264 
001274 


017360 


177777 
000004 
001400 


036555 
001205 


001372 


030456 
030460 


001276 
030460 


001274 
030456 


000010 
030416 


171010 


BR 
sz77$: «= ASCIZ 
76$: 


BR 
-s78S: . ASCIZ 


as 
we 


5$: 


6$: TST 


* 


Fpl TIME THRU HERE ? 
3: TYPE ASCIZ STRING 


sGET OVER THE ASCIZ 


74$ 
<CRLF>/TO TEST. DRIVE / 


«(SP) 
XXDP , (SP) 


.77$ 

76$ 

/, HALT PROGRAM, 
, 78% 

$ 


sCLEAR WORD ON STACK 
GET DRIVE ADDRESS 


TYPE DRIVE ADDRESS 
[ONLY 1 CHARACTER 
iE A LEADING ZEROS 
TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 
* REMOVE RRDP PACK AND REPLACE IT/<CRLF > 


22 TYPE ASCIZ STRING 


OVER THE ASCIZ 


4 2GET 
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF > 


ASTART,CNTILC 
PC, $TKINT 


$AUTOB 
5$ 
PC ,BUSADR 


$RMADR ,RMADR 
SRMVEC ,RMVEC 


SENV 
SETVEC 
ge 


$ 
SVECT1,$RMVEC 
$SRMVEC ,RMVEC 
$BASE 


SETVEC 
$BASE , $RMADR 
$SRMADR ,RMADR 


: "CONTROL C’ ADDRESS 
TURN ON THE KEYBOARD INTERRUFT 


sRUNNING AUTO MODE ? 

sR It YES 

CHECK THE RH/RM ADDRESS 
=RH/RM ADDRESS 

;RH/RM VECTOR ADDRESS 


RUN UNDER APT MODE? 


;NO, DO NOT LOAD FROM E-TABLE 


;UUT INTERRUPT VECTOR 
;DO NOT CHANGE IF = 0 


NEW VALUE 

3;RH/RM VECTOR 

[UUT BASE REGISTER ADDRESS 
;DO NOT CHANGE IF = 0 

[NEW BASE ADDRESS 

:RH/RM ADDRESS 


sDISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
;PROGRAM WILL USE 


SETVEC: JSR 


PC,ST.CLK 
PC,RMINIT 
RMADR ,RO 
ACLR.RMCS2(RO) 
ere 

a- 


1$ 
#SWO2 ,aSWR 
12 


START THE CLOCK 

INITIALIZE THE RM DRIVER 
GET BASE ADDRESS 

CLEAR MASSBUS 

SET THE SAVE REGISTERS FLAG 
;FIRST TIME THRU HERE ? 


BR IF NO 

2 TYPEQUI THE DRIVE STATUS TABLE ? 
;CLEAR DEVICE MAP 

:DRIVE TABLE POINTER 

ay "UNIT STATUS" 


CR 
eae R4 FOR TYPEQUT 


SEQ 0039 


_2RMLBO RM05/3/2 FORMATTER 
SWITCH REGISTER 


GET VALUE FOR SOF TwARE 


66 104403 
602 


O2090 CDOOOCO°0O 
ae pe Peer Spee ee Seer ers 


tat shed iad 
Oo 
Nm 
Ww 
So 
Ww 
Ww 


Og32 104401 
36 000424 


104401 
010244 000421 


010246 005737 
1406 


o 20:6 686OmlhlCUOND 


WW OWNAMNE WN =O ODWNAWUS WO 
—_ 
ie] 
Nm 
i 
o 


el eB el lh ae et a at wel ee we ed ed oh ee ed od 
WAW AWARDED 2-4 2 2 ee ooo 
SAR e SRIFAR 


1 010270 104401 
2 010274 156437 
3 010302 013737 
010310 104401 
010314 005000 
910316 116400 
010322 012737 
138 010330 122700 
139 010334 001411 
140 010336 012737 
141 010344 122700 
142 010350 001403 
143 010352 012757 
145 010360 104401 
146 010362 9 
148 010364 005204 
149 010366 020427 
150 010372 001272 
151 010374 013737 
152 010402 104401 


| 
| 
| 
| 
| 
| 
| 


036617 
030340 


030350 
036453 
636474 
036432 
036511 


001412 
001412 
036521 


030350 
036543 
000004 


036536 
000005 


036550 


000010 


001402 
001205 


B 4 
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001400 
001402 


010362 
010362 


010382 


001400 


3$: 
S$: 
5$: 


6$: 


7$: 


8$: 


9$: 
10$: 
11$: 


12$: 


33 TYPE DRIVE NUMBER 
22GO_ TYPE=-OCTAL ASCII 
cs TYPE 2 OIGIT¢(S) 


2 
0 3zSUPPRESS LEADING ZEROS 
2BLNKSS TYPE 4 SPACES 
DRVSTASRS) CHECK DRIVE'S STATUS 
5$ ;BR IF UNSAFE 
6$ ;BR IF ONLINE 
DRVTYPC(RS) SEE IF OFFLINE OR NONEXISTENT 
3$ :BR IF NONEXISTENT 
4$ BR IF OFFLINE 
-NOTRM DRIVE NOT AN RMO5/3/2 
11$ CHECK NEXT DRIVE 
-NOTPRS DRIVE NOT PRESENT 
11$ CHECK NEXT DRIVE 
UNTOFF DRIVE OFFLINE 
8$ PRINT DRIVE TYPE 
-NOTSAF DRIVE UNSAFE 
8$ PRINT DRIVE TYPE 
XXDP ;LOADED FROM THIS DEVICE ? 
7% :BR IF NO 
XXDP ,R4 ; LOADED FROM THIS DRIVE ? 
7$ BR IF NU 
nS aie DRIVE IS LOAD DEVICE 
2UNTON DRIVE ONLINE 
ATABIT(R4) ,DEVMP SET DEVICE MAP 
DEVMP ,DEVMP+2 ;SAVE DEIVICE MAP 
aa TYPE 2 SPACES 
DRVTYP(R4),RO ;GET DRIVE TYPE 
#$RMO3, 108 ASSUME ADDRESS OF RMO3 MESSAGE 
#4 ,R0 1S DEVICE AN RMO3 ? 

:BR IF YES 
AERMO? , 10$ ADDRESS OF RMO2 MESSAGE 
#5,R0 31S DEVICE AN RMO2 ? 
9$ BR IF YES 
#ERMOS 108 ADDRESS OF RMOS MESSAGE 

;TYPE THE DRIVE TYPE MESSAGE 
0 jMESSAGE ADDRESS HERE 
R4 7 INCREMENT DRIVE NUMBER/TABLE POINTER 
R4,#8. FINISHED ? 
2s ;BR_IF NOT 
DEVMP+2,DEVMP ;GET DEVICES TO TEST 
-SCRLF 7 CROLF 


C 4 
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7E FOR AUTO MODE 


' 
he 


-SBTTL SIZE FOR AUTO MODE 


2 
3 zIF RUNNING IN AUTO MODE, THEN AUTO SIZE DRIVES TO BE FORMATTED 
6 
5 010606 105737 0017150 MSIZE: TSTB $AUTOB SRUNNING UNDER AUTO MODE ? 
6 010612 001540 BEC ASKO BR IF NO 
7 910414 132737 000200 001231 BITB  4#BIT7,SENVM = S APT AUTO SIZING ALLOWED ? 
8 010422 001154 BNE ASKO BR IF NO 
10 010424 005737 001266 TST $DEVM :DEVICE MAP AVAILABLE FROM APT MAI\ BOX 
11 610430 001406 BEQ 1$ BR IF NONE 
12 010432 013737 001266 001400 MOV -—« SDEVM,DEVMP, = :LOAD 17 FROM MAIL BOX 
13 010440 042737 177400 001400 BIC #177400,DEVMP ALLOW MAX 8 DRIVES 
16 010466 1$: 
1g RETURN HERE IF RUNNING IN CHAIN MODE AND MORE DRIVES TO TEST 
18 010446 005737 001400 StI: TST DEVMP 3CHECK DEVICE MAP 
19 010452 001002 BNE 1$ BR iF DRIVES ASSIGNED 
20 010454 000157 016342 IMP = $GET42 GET MONITOR 
22 010460 012737 000000 001334 1$: MOV #0 ,.MINTRK sALWAYS STARTS FROM 0 TRACK 
23 010466 012737 000000 001330 MOV «#0. MINCYL TALWAYS STARTS FROM 0 CYLINDER 
24 010474 012737 001466 001226 MOV § #822.,MAXCYL —:LAST CYLINDER 
25 010502 005037 001376 CLR WRAP :SEEK FROM LO TO HI CYLINDER ADDRESS 
26 010506 005037 001320 CLR “MODE [SET TO ‘FORMAT’ MODE 
27 010512 012737 177777 001356 28: MOV -—s#=1, SEC 30 SE 32 SECTOR 
28 010520 0057357 001272 TST $CDw2 ;APT PARAMETER = 
29 010524 001012 BNE 3$ NO, 30 SECTOR 
30 010526 012737 020100 001350 MOV #<258.+32,>-WC COUNT OF WORDS 
31 010534 012737 157700 001352 MOV —- #~< 258, #32. >, Mw ;WORD COUNT 
32 010542 012737 000037 001360 MOY #3TCLMAXSEC max 32 SECTOR 
$3 010550 000415 BR 4$ 
35 010552 012737 017074 001350 38: MOV —-#<258.*30.>.WC : COUNT OF WORDS 
36 010560 012737 160704 001352 MOV —s- #=< 258. #305, Mw ;WORD COUNT 
37 010566 005037 001356 CLR SEC 30 “330 sector 
38 010572 012787 000035 001360 MOV «#29. , MAXSEC [MAX 30 SECTOR 
39 010600 005001 4$: CLR R1 7START WITH DRIVE NUMBER 0 
40 010602 136137 030444 001400 S$: BITB = ATABIT(R1) ,DEVMP” 31S THIS DRIVE IN DEVICE MAP ? 
41 010610 001005 BNE 63 ;BR_IF YES 
42 010612 005201 INC RI S INCREMENT DRIVE # 
43 010614 020127 000007 (MP RT #7 ALL DONE WITH MAP ? 
44 010620 003770 BLE 5$ ZBR IF NO 
45 010622 000711 BR S71 DONE !! 
47 010624 010137 001222 6$: MOV _— RT DRIVE ;LOAD R1 INTO DRIVE 
48 010630 146137 030444 001400 BICR ATABIT(R1) .DEVMP™ CLEAR THE BIT FROM DEVICE MAP 
49 010636 105761 030340 TST8 DRVSTA(R1) :1S DRIVE ON LINE ? 
50 010642 003757 BLE 5$ :BR IF NO 
51 010644 005737 001412 TST KXDP LOADED FROM THIS DEVICE ? 
52 010650 001403 BEQ 7$ R IF NO 
53 010652 123701 001412 CMPB = XXDP,R1 ‘POADED FROM THIS DRIVE ? 
54 010656 001751 BEQ 5$ BR IF YES 
5 , 
56 010660 012702 000004 7$: MOV #4, R2 ;SETUP TRACK PARAMETER FOR AN RMO3/2 
57 010664 122761 000007 030350 (MPR 9 #7-DRVTYP(R1) ZS DEVICE AN RMOS ? 
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58 010672 
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95 
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RS 


Ww 
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oO 
w 
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RaSRe 2 
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000756 
012737 


012737 


000001 
000131 
000116 
037174 


001320 


041771 


000001 
000131 
000116 
037174 


177777 


017074 
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001356 


001360 


001350 
001352 
001360 


8s: 


D 4 
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IF NO 


BR 

sSETUP TRACK PARAMETER FOR AN RMOS 
sSETUP LAST TRACK AND 

sEND TRACK FOR AUTO MODE. 

; START TO FORMAT OR CHECK 


< WHICH MODE THE PROGRAM IS TO BE R 


MODES ARE: 
ASKO: 


1$: 


2$: 


3$: 
4$: 


zFIND OUT IF FORMAT IS TO BE IN 
ASK1: 


1$: 


23: 


3$: 


6$: 


BNE 8$ 

MOV #18. ,R2 

MOV R2.LSTRK 

MOV R2 ,MAXTRK 

IMP S12 

CLR PS 

CLR MODE 

TYPE »$CRLF 

TYPE »MMODE 

RDLIN 

MOV (SP)+,RO 

1S5TB (RO) 

BEQ 4$ 

TSTB 1(RO) 

BNE 2$ 

CMPB #*y, (RO) 

BEQ 4$ 

CMPB #'N, (RO) 

BEQ 3$ 

TYPE ,BADENT 
1$ 

INC MODE 


-MSIZE 


(SP) +,RO 
(RO) 


2$ 

1(RO) 

1$ 

#*y. (RO) 
$ 

#'N, (RO) 
3$ 


»BADENT 
ASK1 


#-1,SEC30 


#<258.*32.>,WC 
&-<258.*32.>,MwC 
oo 


SEC30 


#<258.*30.>,WC 
#-<258.*30.>,MwC 
#29. ,MAXSEC 


7 ASSUME 
7 CR-LF 
TYPE 
sREAD THE KEYBOARD 


z SAVE ADDRESS OF RESPONSE 
WAS RESPONSE A CARRIAGE RETURN (DEFAULT ‘Y")? 


UN IN 
“FORMAT & VERIFY’ OR VERIFY HEADER FORMAT’ 


"FORMAT' MODE 
"DO YOU WANT TO FORMAT (L) Y ?° 


BR IF YES 
oe ih i cece WITH CARRIAGE RETURN ? 


N 
zWAS IT A ‘Y" RESPONSE ? 
:BR IF YES 


[WAS IT A 'N" RESPONSE ? 


BR IF YES 
;TYPE BAD ENTRY MESSAGE 
TRY AGAIN 


:SET "VERIFY HEADERS ONLY’ MODE 


16. OR 18. BIT MODE 
is TYPE 


"DO YOU WANT 16 BIT FORMAT MODE (L) Y ?° 
READ THE ENTRY 

a ADDRESS d RE SPONSE 

S RESPONSE A CARRIAGE RETURN (DEFAULT °Y")? 


‘BR IF YES 
sWAS IT TERMINATED WITH CARRIAGE RETURN ? 


BR IF NO 

[WAS IT A 'Y" RESPONSE ? 
7;BR IF YES 

sWAS IT A 'N' RESPONSE ? 
;BR IF YES 

: TYPE BAD ENTRY MESSAGE 
TRY AGAIN 


332 SECTOR iNDICATOR 
iTRACK SIZE IN 32 SECTOR MODE 


32°S COMPLEMENT WORD CQUNT 


7MAX SECTOR ADDRESS IN 32 SECTOR MODE 
7 CONT INUE 


230 SECTOR INDICATOR 
i TRACK SIZE IN 30 SECTOR = 


32°S COMPLEMENT WORD COUN 
MAX SECTOR ADDRESS iN 30 SEcr OR MODE 


Z7RMLBO RMO5S/3/2 FORMATIER 


E 4 
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i2— FOR AUTO MODF 

115 GO FIND OUT WHAT DRIVE 
116 
11? 011124 012737 017630 001372 ASK2: MOV  #C.ENTR,CNTLC — ; CONTROL C_ABORT ENTRANCE 
118 011132 004737 026414 JSR PC STKINT INITIALIZE THE TTY KEYBOARD 
119 011136 005037 001126 CLR SERTTL CLEAR THE ERROR ACCUMULATOR 
120 011142 104401 036573 TYPE = ,MUNIT iTYPE *DRIVE' 
121 011146 104401 036604 TYPE COLON iTyPE ': ' 
122 011152 104411 RDLIN ZREAD THE ENTRY 
123 011154 012601 MOV = (SP) +, R1 iSAVE ADDRESS OF RESPONSE 
“26 011156 004537 023120 JSR RS, CK CHR ;CHECK ONE CHARACTER 

011162 011176 1$ sILLEGAL CHARACTER 

011164 011176 1$ ZCARRIACE RETURN 

011166 011176 $ eo 

011170 011176 i$ en 

011172 011204 2s :DIGIT Q-7 
nog ONIN 019176 18 :DIGIT 8-9 
126 011176 104401 037174 1$: TYPE BADENT ; TYPE BAD ENTRY MESSAGE 
127 011202 000750 BR Aske TASK FOR DRIVE NUMBER AGAIN 
129 011204 010237 001222 28: MOV ——-R2, DRIVE ; SAVE DRIVE NUMBER 
130 011210 005737 001412 TST = XXDP [LOADED FROM THIS DEVICE ? 
131 011214 001406 BEQ 38 ;BR_IF NO 
132 011216 123702 001412 CMPB «XXDPR2 :WAS THIS THE DRIVE ? 
133 011222 001003 BNE 38 :BR IF NO 
134 011224 104401 036771 TYPE — MLODEV ;DRIVE IS LOAD DEVICE 
135 011230 000735 BR Aske 
137 011232 004737 017360 3$: JSR PC, ST CLK :START THE CLOCK 
138 011236 004737 030466 JSR PC RMINIT :GO SEE WHAT DRIVES ARE AVAILARLE 
139 011242 013700 030456 MOV —-RMADR.,RO :GET BASE ADDRESS 
140 011246 012760 000040 000010 MOV —- #CLR,RMCS2(RO) CLEAR MASSBUS 
141 011254 012737 177777 030416 MOV = #=1,, SAVEFG ;SAVE THE REGISTERS 
142 011262 012737? 177777 030420 MOV —-#-1, SEEKFG ;SET ‘NO OPTIMIZATION’ FLAG 
143 011270 005037 177776 fk. BS :PRIORITY = 0 
144 011274 105762 030340 TSTB —- DRVSTACR2) LOOK AT DRIVE STATUS 
145 011300 003015 BGT —s-«6$ :BR IF ONLINE 
146 011302 001403 BEQ 4S :BR_IF DRIVE NOT AVAILABLE 
147 011304 104401 036751 TYPE — ,MUSDR ; "DRIVE UNSAFE * 
148 011310 000705 ASK2 :GO GET DRIVE NUMBER AGAIN 
150 011312 105762 030350 4$:  TSTB_— DRVTYPCR2) :A DRIVE PRESENT? 
151 011316 001003 5$ iBR_IF SO 
152 011320 104401 036675 TYPE — .MDRNP ZTYPE "DRIVE NOT PRESENT' 
153 011524 000677 BR Ask2 :GO GET DRIVE NUMBER AGAIN 
155 011326 104401 036722 5$: TYPE —MER11 : "DRIVE NOT AVAILABLE" 
156 011332 000674 BR Ask2 :GO GET DRIVE NUMBER AGAIN 
158 011334 113737 001222 005540 6$:  § “0VB DRIVE, FMTDPB —_; SETUP. DRIVE ADDRESS 
159 011342 012737 000000 001330 MOV #0, MINCYL CLEAR STARTING CYLINDER ADDRESS 
160 011350 012737 001466 001326 MOV #822, ,MAXCVL SETUP END CYLINDER 
161 011356 012737 000000 001334 Moy «#0, MINTRK CLEAR STARTING TRACK ADDRESS 
162 011364 012700 000004 MOV #4, RO- :GET LAST TRACK FOR AN RMO3/2 
163 011370 122762 030350 CMPB 9 #7DRVTYP(R2) 1S DEVICE AN RMOS ? 
164 011376 001002 BNE -7$ iBR_IF NO 
165 011400 012700 000022 MoV «#18, .RO IGET LAST TRACK FOR AN RMOS 


RM. BO 
ZE FOR TO 
166 011604 
167 011410 
170 011414 
011420 
173 0114626 
011430 
011434 
174 0114640 
175 
176 
177 
178 011444 
179 011450 
18O 011454 
181 011656 
182 011460 
183 011462 
1 011464 
185 011470 
186 611472 
187 011476 
188 011500 
189 011504 
190 011506 
197 011512 
192 011514 
193 
196 011514 
195 011520 
196 011526 
197 011526 
198 011534 
199 011536 
200 011540 
201 
202 011542 
203 011550 
204 011552 
205 011556 
206 
207 011560 
208 €11566 


194401 


023737 
103006 
104401 
000756 


012737 


001376 
042362 


000061 
000131 
000116 
037174 


036624 
020032 


001326 


001332 
037215 


"FT irr 


F 4 
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901330 


001334 


001 376 


7%: 


RO.LSTRK 

RO MAX TRK 
RO, TABLE +16 
RO, TABLE +24 
RO, TABLE 2+6 
RO, TABLE $*6 
RO. TABLE4 +6 
»$CRLF 


GET ADDRESS LIMITS 


ASK3: 


1$: 
28: 
ASK3A: 


WRAP 
2MSPRM 


(SP) +,RO 
(RO) 


ST2 
1(RO) 
1$ 


ay, (RO) 

2$ 

#°N, (RO) 

ST2 

»BADENT 

ASK3 

«ENTADR 
R4,PARENT 
MAXCYL ,MINCYL 
1$ 


3$ 
4$ 


MAXTRK ,MINTRK 
4$ 


-MADRER 
ASKSA 


#-1 ,WRAP 


;SETUP LAST TRACK AND 

END TRACK PARAMETERS 

SETUP TRACK PARAMETER LI IN ‘TABLE’ 
SETUP TRACK PARAMETER LIMITS IN ‘“TABLE*’ 
SETUP TRACK PARAMETER LIMITS IN ‘"TABLE2" 
:SETUP TRACK PARAMETER (| 

iSETUP TRACK PARAMETER LI 

7 CR=L 


ASSUME SEEK FROM LO TO HI CYLINDERS 

TYPE ‘CHANGE DRIVE PARAMETERS ?° 

;READ THE ENTRY 

SAVE ADDRESS OF RESPONSE 

7WAS ‘ae A CARRIAGE RETURN (DEFAULT 'N')? 
: Y 


;BR IF YES 
;WAS IT TERMINATED WITH CARRIAGE RETURN ? 
;BR IF NO 


:WAS IT A 'Y" RESPONSE ? 
:BR IF YES 

:WAS IT A 'N' RESPONSE ? 
;BR IF YES 

i TYPE BAD ENTRY MESSAGE 

: TRY AGAIN 


sTYPE "ENTER ADDRESS LIMITS:’ 

ZENTER THE ADDRESS LIMITS 

: TABLE PARAMETERS 

sSEE IF ENDING CYL EQ TO GT THAN STARTING 
sBR IF ON THE SAME CYLINDER 

;BR IF LESS 

:TO CHECK DRIVE 


SEE: IF tate TRACK EQ OR GT THAN STARTING 


sBR IF Y 
7 INVALID ee ENTERED 


: TRY AGAI 
sALLOW SEEK FROM HI TO LO CYLINDER ADDRESS 


CRM BO RMOS/ 43/2 EORMATTER 


"yPE TE OMT VE NUMBERS 


z 
4 
5 917566 012737 017642 
é 011576 005037 177776 
7911600 104401 001205 
8 011606 005737 001320 
9 011610 001403 
10 011612 104401 037062 
11 017616 000402 
12 011620 104401 037033 
13 011624 005737 001356 
14 011630 100603 
15 011632 106401 037141 
16 011636 000402 
17 011640 106401 037106 
78 011644 
19 
20 
21 
22 
22 011644 005037 001342 
24 011650 012737 177777 
25 011656 013737 001222 
26 011664 012737 466 
27 011672 113737 001324 
28 011700 105037 005550 
29 011704 012737 046234 
30 011712 012737 157700 
31 011720 112737 000020 
32 011726 112737 000143 
33 011734 004037 031214 
34 011740 005540 
35 011742 000774 
36 011744 005737 005556 
7 011750 001775 
39 011752 012737 011752 
40 011760 012706 001100 
41 011764 112737 000173 
42 011772 004037 031214 
43 011776 005540 
44 012000 000774 
45 012002 005737 005556 
46 012006 001775 


60 012012 022737 000003 
62 012022 005237 001342 
000761 


64 
65 012030 005037 001176 
56 012034 


MACRE 


000060 


001404 


005546 
005544 
005541 
005542 


001124 
005542 


001342 


046234 


04.00 4=-APR=81 


~ 


ev¥ 
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4 


-SBTTL TYPE THE DRIVE NUMBER 


TYPE THE DRIVE TO BE FORMATTED 


ST2: MOV 
BR 

1$: TYPE 

2s: TST 


3$: TYPE 
4$: 


MO.ENTR@MIKVEC ; 
PS 

o $CRLF 
MODE 

1$ 
2MVERFY 
e$ 

«MF ORMT 
SEC30 
3$ 
M18BIT 
4$ 
»M16BI1T 


AND START 


‘ CTOR FOR CONTROL=C 
itR igh y=0 

ils iy — MODE ? 
:TYPE "VERIFY HEADERS* 


7 TYPE “FORMAT & VERIFY‘ 
31S IT 16 BIT MODE ? 


7BR IF YES 
;TYPE ‘OPERATE IN 18 BIT MODE’ 
s TYPE ‘OPERATE IN 16 BIT MODE’ 


7THIS CODE RETRIEVES THE BAD SECTOR FILE FROM THE PACK (IF FORMATTED PACK) 
SE} UP DPB BLOCK READ CYL 822., LAST TRACK. 


RETBAD: CLR 


1$: JSR 


es: TST 


3¢: JSR 


BR 
4$: TST 


6$: CLR 


RETRY 
#~1 ,BSFAVL 
DRIVE .FMTDPB 


#822. .FMIDPB+12 : 
LSTRK.FMTDPB+11 : 


FMTDPB+10 
#BUFP FMT DPB+6 
#-<32.%258.>,FMT 
#20, FMTDPB+1 
ASETFMT .FMTIDPR+2 
RO,RMOS 


1$ 
FMTDPB+16 
2s 


#.,SLPERR 

Taine Fatore 2 
+ 

RO,RMOS 


3$ 
FMTDPB+16 
4$ 


6$ 
#3 RETRY 
9$ 


RETRY 

3$ 
SESCAPE 
RETRY 
FMTDPB+16 
>} 


#1514666, BFP 


sCLEAR THE RETRY FLAG 
7 INDICATE BAD SECTOR FILE IS NOT AVAILABLE 


“BUFFER ADDRESS 
DPB+4 —; WORD COUNT FULL TRACK INCLUDING HEAD 


FMT SET 
ET 16 BIT MODE 
:SET THE *PORMAT BIT 


THE COMMAND IS DONE ? 
7BR IF NOT 


;LOOP ON ERROR ADDRESS 

sRESET STACK POINT 

sRELOAD THE READ HEAD AND DATA COMMAND 
sREAD THE LAST TRACK 


BR IF QUEUE FAIL 
sALL DONE 


= IF NOT 

BR IF NO ERROR 
SEXCEEDED RETRY LIMIT ? 
BR IF YES 
T INCREMENT RETRY COUNT 
TRY AGAIN 


ANY ERROR ? 
BR IF YES 
cON THE LAST CYLINDER ? 


H 4 
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TYPE THE DRIVE NUMBER 


70 0120546 001034 f BNE i) 3 3BR IF NOT 

71 012056 013700 ©€01324 MOV LSTRK RO sGET LAST TRACK 

72 012062 900300 SwAR RO sMOVE TRACK TO HI BYTE AND SECTOR TO LO BYTE 
73 012064 020037 046236 CMP RO, BUFP +2 ON LAST TRACK AND SECTOR O 

74 012070 001026 , BNE 9$ BR IF NOT 

75 012072 005737 046246 TST BUF P+4 SERIAL NUMBER SHOULD NOT 0 

76 012076 001003 BNE 7$ :BR IF NOT O 

77 012100 005737 046242 TST BUF P+6 ‘SECOND WORD OF SERIAL NUMBER 

78 012106 001420 REQ 9S BR IF ZERO (CORRUPT) 

79 012106 005737 046244 7$: TST Bu? P+10 THE THIRD WORD MUST BE 0 

80 012112 001015 BNE 9$ BR IF NOT (CORRUPT) 

81 012114 022737 177777 046246 CMP 4-1 ,SUFP+12 ;AN ALIGNMENT PACK ? 

Be 012722 001002 BNE 8$ zBR IF NOT 

63 0121246 000137 016430 JMP REJCT1 REJECT FOR BEING AN ALIGNMENT PACK 

84 012130 005737 046246 8$: TST BUFP+12 71S DISK A DATA PACK ? 

8S 0121346 1004 BNE 9$ :BR IF NO (CORRUPT) 

86 012136 012737 000400 001404 MOV #400, BSF AVL INDICATOR BAD SECTOR FILE IS AVAILABLE 
87 012144 90 BR 10$ zFILE OK.. 

88 012146 9$: 

sf 612146 108: 

sei THIS CODE INITIALIZES THE MFG16. MFG18, USTAB AND USSAV TABLES 

93 012146 012706 0011900 TABINT: MOV MSTACK,SP INITIAL STACK POINT 

94 012152 005046 CLR -(SP) : TERMINATOR 

95 012154 012746 004430 MOV #USSAV,-(SP) sUSSAV TABLE ADDRESS 

96 012160 012746 002420 MOV AMF G18,-(SP) ;MFG 18 BIT FILE ADDRESS 

97 012164 012746 001414 MOV #MFG16,-(SP) MFG 16 SIT FILE ADDRESS 

98 012170 012703 003424 MOV #USTAB,R3 USER BAD SECTOR FILE ADDRESS 

99 012174 012704 000004 1$: MOV #4 RG SET 2 SERIAL NUMBER WORDS AND NEXT 2 WORDS 
100 012200 005023 2$: CLR (R3)+ 3TO ALL O'S 
101 012202 005304 DEC RG. DONE YET ? 
1 012204 001375 BNE et ;BR IF NO 
104 012206 012704 060374 MOV #252. ,R4 =:GET NUMBER OF ENTRIES LEFT TO FILL 
105 012212 012723 177777 3$: MOY #-1,(R3)+ SET REST OF LOCATIONS TO -1 
106 012216 005304 DEC RG DONE YET 7? 
107 012220 001374 BNE 3$ :BR IF WO 
108 012222 012603 MOV (SP)+,R3 ;GET NEXT TABLE ON STACK 
17 012224 001363 BNE 1$ BR IF NOT TERMINATOR 
111 THIS CODE LOADS TABLE MFG16, MFG18, USSAV FROM PACK BAD SECTOR FILE 
BT INFORMATION. (IF BAD SECTOR FILE IS AVAILABLE) 
114 012226 005737 001404 TABLD: TST BSF AVL 71S BAD SECTOR FILE AVAILABLE ? 
fea 0122352 003451 BLE 6$ :BR IF NO 
117 sPOINT TO FIRST SERIAL NUMBER OF 1ST 
118 012234 012702 046240 MOV #BUFP+4,R2 316 BIT "MFG' BLOCK OF BAD SECTOR FILE 
119 012240 012703 001414 MOV #MFG16,R3 GET ADDRESS OF MFG16 TABLE 
120 012244 012704 000400 MOV #256. RS s WORD COUNT 

121 012250 012223 1; MOV (R2)+,(R3)+ LOAD THE MFG16 TABLE 
122 012252 005304 DEC R4 DONE YET ? 

1¢3 012254 001375 BNE 1§ BR IF NO 

125 sPOINT TO FIRST SERIAL NUMBER OF 1°T 
126 072256 O12702 0467244 MOV ABUFP+4+516.,R2 2:18 BIT "MFG' BLOCK OF BAD SECTOR FILE 


LN CCC Cte niatite ite atten gn ain tae ne test tps 


TAM. BO 


RM95/3/2 FORMATTER 


T vps ThE DRIVE NUMBER 


128 


BIFARAV ISS 


Se ee er Se 


rer 
aw 
Qvw 


Q12262 012703 0024 
O12 012704 eoseb0 
012272 012223 

012274 O00 

012276 001375 


012312 012702 060310 
012316 012703 004430 
012322 012704 0004 
012326 012223 

012330 0053504 

€12332 001375 

012334 062702 000004 
012340 012703 003424 
012344 012704 000600 
012350 012223 

012352 005 

oiere 001375 

012356 


MACRO ¥04.00 


2: 


3$: 
48: 


5$: 


6$: 


4eAPR-8) 
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aMFG1B,R3 3GET ADDRESS OF MFGI8 TARE 
#256. ,R4 swWwORD COUNT 

(R2)+,(R3)+ ZLOAD THE MFG18 TARLE 

RG ;DONE YET ? 

2$ sBR IF NO 


eg TO FIRST SERIAL NUMBER OF IST 
;18 BIT ‘USR’ ete OF BAD SECTOR FILE IN 


MBUFP*6+<11.9516.>,R2 SECTOR 1 
SEC 30 SFORMAT IN 16 BIT. MODE 
3$ SBR IF IT IS 


A TO FIRST SERIAL NUMBER OF 7ST 
BIT 'USR' BLOCK OF BAD SECTOR FILE IN 
ABUFP+4+<10. +516, : 68 sSECTOR 10. 


AUSSAV,R3 GET ADDRESS OF USSAV TABLE 
#256. RS ;WORD COUNT 

(R2)*, (R36 SLOAD THE USSAV TABLE 

R4 ;DONE YET ? 

4$ :BR IF NO 

#4,R2 sACCESSES THE USTAB BUFFER ADD 
#USTAB,R3 ;GET ADDRESS OF USTAB {ABLE 
4256. .R4 ;WORD COUNT 

(R2) 4+, (R3)+ :LOAD THE USTAB TABLE 

RS :DONE YET ? 

5$ ;BR IF NO 


J 4 
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FNTER OCTAL SFRIAL NUMBFA 


-SBITL ENTER OCTAL SERIAL NUMBER 


3 THIS CODE ASK OPERATOR TO ENTER A SERIAL NUMBER FOR UNFORMATTED OR 
6 SINIT IALIZED PACK 
2 
6 012356 005737 001404 SERNL: TST BSFAVL 31S BAD SECTOR FILE AVAILABLE ? 
7 012362 003123 BGT 5$ SBR OIF YES 
8 012364 105737 001150 TSTB —- SAUTOB SRUNNING UNDER AUTO MODE ? 
2 012370 001116 BNE 4$ “BR IF YES 
11 012372 004737 024414 JSR PC,$TKINT ZINITIALIZE THE KEYBOARD 
12 012376 104401 0375353 13: TYPE »MESG1 : TYPE ‘ENTER SERIAL NUMBER (OCTAL): ' 
13012402 012702 000012 MOV #10. ,R2 :MAXMUM 10 OCTAL DIGITS 4LLOWED 
14 012406 005037 001414 CLR MFG16 ;CLEAR THE LSW OF THE SERIAL NUMBER 
15 012412 005037 001416 CLR MF G16+2 ;CLEAR THE MSW OF THE SERIAL NUMBER 
164 0124616 104411 RDLIN SREAD IN THE STRING 
17 012420 012601 MOV (SP)+,R1 ZADDRESS OF THE READ IN STRING 
18 012422 105711 2$: TSTB (R1) ; TERMINATOR OF THE INPUT STRING 
19 012424 001471 BEQ 3$ sBR IF IT IS 
20 612426 121127 0060060 CMPB (R1),#'0 SLESS THAN ASCIZ 0 ? 
21 012432 103522 BLO 6$ ZENTER AGAIN IF IT IS 
22 012434 121127 000067 CMPB (R1),#°7 >HIGH THAN ASCIZ 7 ? 
23 012440 =101117 BHI 6$ sENTER oar IF SO 
24 012442 013746 001414 MOV MFG16,-<SP) TSAVE THE L 
25 012646 042737 100000 001414 BIC #B1T15,MFG16 > CLEAR THE SIGN BIT OF LSw 
26 012454 006137 001414 ROL MF G16 ZROTATE THE LSW FIVE TIMES 
27 012460 006137 001414 ROL MFG16 3T0 MOVE THE MOST SIGN DIGIT 
28 012464 0061357 001414 ROL MFG16 :T0 BIT 0 TO BIT 2 
29 012470 006137 001414 ROL MFG16 
30 012474 006137 001414 ROL MF G16 
31 012500 042737 177770 001414 BIC #177770,MF G16 LEFT ON THE MS DIGIT OF THE LSw 
32 012506 0063357 001416 ASL MFG164#2 ZSHIFT oe MSw LEFT ONE OCTAL DIGIT 
33 012512 100472 BMI 6$ S ENTER AGAIN IF SIGN BIT SET 
34 012514 006337 001416 ASL MF G16+2 
35 012520 100467 BM] 6$ 
36 012522 006337 001416 ASL MF G16+2 
37 012526 100464 BM] 6$ 
38 012530 063737 001414 001416 ADD MFG16,MFG16+2 ZAPPEND ING THE a INTO MSw 
39 012536 012637 001414 MOV (SP)+,MFG16 SRESTORE THE £ 
40 012542 0063357 001414 ASL MF G16 SSHIFT THE Bry rEFT ONE OCTAL DIGIT 
41 012546 006337 001414 ASL MFG16 
42 012552 006337 001414 ASL MF G16 
43 012556 042737 100000 001414 BIC #B1T15,MFG16 CLEAR THE SIGN BIT 
44 012564 111103 MOVB (R1) R3 :LOAD THE CURRENT READ IN DIGITS 
45 012566 042703 177770 BIC #177770. R3 SLEFT ONLY ONE OCTAL DIGIT 
46 012572 060337 001414 ADD R3 MF G16 ZAPPEND THE READ IN CHARACTER TO LSwW 
47 012576 005201 INC R1 ZADJUST THE READ IN STRING ADDRESS 
48 012600 605302 DEC R2 =DECREMENT ONE DIGIT COUNT 
49 012602 001307 BNE 2$ [BR IF NOT DONE 
50 012604 105711 TSTB (R17) iTF 10 DIGITS HAVE BEEN ENTERED 
51 012606 001034 BNE 6$ BR IF NOT <CR> TERMINATOR 
52 012610 005737 001414 3$: TST MF G16 “FIRST aeons NUMBER ZERO ? 
53 012614 001006 BNE 5$ ‘BR IF 
54 012616 005737 001416 TST MFG16+2 + SECOND ocRiAL NUMBER ZERO ? 
55 012622 001426 BEQ 6$ :BR IF YES 


000402 $$ 
57 012626 005237 001414 4$: INC MFG16 sASSUME S/N 1, IF THE SERIAL NUMBER NEEDS 7 


CIRMLBO 8MO5/3/2 FORMATTER — 


FNTER OCTAL SERIAL NUMBER 


012706 


£01414 002420 
424 


001416 002422 
037174 


5$: 


63: 
Pe. 


K 4 
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BE ENTERED DURING AUTO MODE APT,ACT,ETC. 

MOV MF G16,MFG18 LOAD ALL TABLES WITH THE NEW SERIAL NUMBER 
MOV MFGIS,USTAB 
MOV MF G16,USSAV 
MOV MF G16+2,USTAB+2 
MOV MF G16+2,USSAV+2 
MOV MF G16+2,MFG1842 

7$ . geury 
TYPE —_,BADENT TYPE "BAD ENTRY* 
BR i$ TRY AGAIN 


» t G 4 a 


L 4 
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IT¥ ROUTINE 
1 -SBITL UTILITY ROUTINE 
c 
? sTHIS CODING TO PROVIDE UTILITY ROUTINE ENTRIES 
5 012706 004737 024414 CALIN: JSR PC, STKINT poy thea THE  aiemmaanes 
6 012712 105737 001150 TSTB $AUTOB SAUTO BYTE SET 
7 012716 001057 BNE 5$ 71F SO, BRANCH 
8 012720 0057357 001270 TST $cDw1 TALLOW ANY UTILITY ROUTINE ? 
4 012724 001454 BEQ 5$ :BR IF NOT 
11 012726 005227 177777 1$: INC #-) sFIRST MS THRU ? 
12 012732 001002 BNE 3$ ‘BR IF 
13 012734 104401 037740 2%: TYPE -MSGBLK s ENTER MESSAGE BLOCK 
14 012740 104401 040521 3: TYPE »MUTLTY sTYPE UTILITY MESSAGE 
15 012744 104410 RDCHR TREAD IN THE ROUTINE NUMBER 
16 012746 012637 001174 MOV (SP) +,$TMPO ZADDRESS OF INPUT BUFFER 
17 012752 022737 000060 001174 CMP #°0, STMPO ; INPUT NUMBER LESS THAN 0 ? 
18 012760 101022 BH] 4$ ;BR IF SO 
19 012762 122737 000064 001174 CMPB #°4, STMPO ; INPUT NUMBER LARGER THAN 4 ? 
20 612770 103416 BLO 4$ iBR IF SO 
21 012772 104401 001174 TYPE ~STMPO TYPE CHARACTER 
22 012776 104401 001205 TYPE ~SCRLF fC 
23 013002 013701 001174 MOV $TMPO,R1 :GET NUMB 
24 013006 042701 177760 BIC #177760, R1 sLEFT OF THREE BITS 
25 015012 006301 ASL R1 + WO. D INDEX 
26 013014 004771 606052 JSR PC. @TABCALCR1) ;:CALL THE DESIRED UTILITY ROUTINE 
27 013020 104401 001205 TYPE ~SCRLF 7 CR-LF 
S 013024 000745 BR 3$ ‘OOP BACK TO THE SAME POINT 
30 013026 104401 001205 4$: TYPE ~SCRLF iCR- 
31 013032 022737 000065 90017174 CMP #'S,STMPO he WHOLE MESSAGE AGAIN ? 
32 0130460 001735 BEQ 2s [BR IF YES 
33 013042 005037 001362 CLR DS.CYL i CLEAR ALL PARAMETERS 
34 013046 005037 001364 CLR DS.TRK 
35 013052 005037 001344 CLR BADSEC 


36 013056 5$: 


M 4 
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SETUP WRITE BUFF 


; -SBITL SETUP WRITE BUFFER 
3 :THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH 
4 SECTOR IMAGE. ALSO, RETURN HERE WHEN LOOPING ON DRIVE BEING TESTED 
5 WITH SWO=1 (SET). 
6 
7 013056 104401 036573 S13: TYPE -MUNIT zTYPE ‘DRIVE* 
& 013062 013746 001222 MOV DRIVE .-‘SP) 7sSAVE DRIVE FOR TYPEOUT 
ia TYPE DRIVE NUMBER 
013066 104403 TYPOS :GO a ereitce pants 
013070 002 ki ee TITYPE 2 DIG 
013071 -BYTE 0O ‘sour eees CEADING ZEROS 
9 013072 104401 036602 TYPE ~$COMMA P 
10 013076 104401 036622 TYPE -BLNKS1 ‘TYPE 1 BLANK 
11 013102 004737 022622 JSR PC, TYPACK STYPE PACK S/N IN OCTAL 
12 013106 104401 091205 TYPE »$CRLF SCR-LF 
13 013112 012737 017642 000060 MOV #O.ENTR,@ATKVEC ;VECTOR FOR CONTROL-O 
14 013120 012706 001100 MOV @STACK, SP RESET aye POINTER 
15 013124 005037 177776 CLR PS PRIORITY = 0 
16 €13130 005037 001406 CLR UPDBSF ;DON* T ALLOW UPDATE OF ‘BSF AT END OF PASS 
17 013134 5737 001320 TST MODE :"FORMAT' OR ‘VERIFY HEADER’ MODE ? 
18 013140 1006 BNE 1$ :BR IF "VERIFY HEADER ONLY’ MODE 
19 013142 012737 177777 001406 MOV 4-1 , UPDBSF sALLOW UPDATE OF ‘BSF' AT END OF PASS 
20 013150 104401 037315 TYPE 2MSFOR TYPE ‘STARTING FORMAT’ 
21 013154 000402 BR 2s [BEGIN FORMATTING 
38 013156 000137 015110 1$: JMP VF YHDR :BEGIN VERIFYING HEADERS ONLY 
3 
24 013162 013703 001350 2$: MOV wC,R3 SET UP COUNTER 
25 015166 012700 046234 MOV #BUFP ,RO SET UP MEMCRY POINTER 
26 013172 015701 0013356 3$: MOV PATA,R1 :SET UP PATTERN IN R1 
27 013176 013702 001340 MOV PATB,R2 SET UP PATTERN IN R2 
28 013202 10120 4$: MOV R1,(RO)+ sMOV 1ST PAT INTO MEM 
132 010220 MOV R2, (RO) + :MOV 2ND PAT INTO MEM 
30 013206 005303 DEC R3 KEEP COUNT 
31 013210 005303 DEC R3 KEEP COUNT 
32 013212 001373 BNE 4$ :DO IT AGAIN IF R3 NOT O 


ZRMLBO RMOS/3/2 FORMATTER 


WRITE HEADERS 
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001775 


023727 
103406 
123737 
103402 
000137 


012703 


001374 


005737 


002012 
020304 


016714 
017120 


000020 
001356 


005541 


000143 
031214 


005556 


005552 
005551 
015076 
005434 


000040 
177777 


001404 


003434 
001424 
001356 
002430 
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005552 
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005541 


005542 


001466 
001324 


000003 


-SBITL WRITE HEADERS 
sSET UP TO WRITE HEADERS AND DATA FOR FORMATTING 


WRTRK: JSR PC, SETDPB ZSET DRIVE PARAMETER TABLE 
JSR PC; SETHDR 'GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE 
MOVB 4#20,FMTDPB+1 LOAD FMT16 BIT 
TST SEC30 £18 BIT MODE ? 
BNE 1$ ‘BR IF NOT 
CLRB —s- FMTDPB+1 SCLEAR THE FMT16 BIT 
1$: MOVE = #SETFMT ,FMTDPB+2" j SLOAD FORMAT" COMMAND 
2$: JSR RO.RMOS ART THE COMMAND 
FMTDPB ‘PB ADDRESS 
BR 2$ SQUEUE FULL RETURN 
3$: TST FMTDPB+16 “LOOK FOR DONE 
BEQ 3$ SLOOP UNTIL FINISHED 
:SET UP "SECCU' TABLE WITH BAD SECTORS ON CURRENT TRACK 
WRTRKX: CMP FMTDPB+12,#822. :LAST CYLINDER ? 
BLO 1$ ‘BR IF NO 
CMPB —s- FMTDPB+11,LSTRK :LAST TRACK OF LAST CYLINDER ? 
BLO 1$ ‘BR IF 
JMP WRTRKZ “DON'T OESTROY LAST TRACK ON CYL 822. 
1$: MOV ASECCU,R3 jINITILIZE THE *SECCU" TABLE 
MOV #32. RG OTAL OF 32. ENTRIES 
2s: MOV #-1, (R3)+ oe ALL LOCATIONS TO -1 
DEC R4 [DONE YET ? 
BNE 2$ [BR IF NO 
;LOAD THE "MFG' AND "USR' BAD SECTOR FILES INTO THE *SECCU’ TABLE FOR 
= THE CURRENT TRACK TO BE FORMATTED 
TST BSF AVL :1S BAD SECTOR FILE AVAILABLE ? 
BLE 9$ BR IF 
CiR -(SP) =CLEAR i THE DUMMY RETURN ADDRESS 
MOV #USTAB+8.,-(SP) :ADDRESS OF ‘USR' BAD SECTOR TABLE 
MOV #MFG16+8..R2 | :SETUP ADDRESS OF 'MFG16° BAD SECTOR TABLE 
TST SEC30 :1S IT 16. BIT MODE ? 
BMI 3$ “BR IF YES 
MOV WMFG18+8.,R2  :SETUP ADDRESS OF 'MFG18° BAD SECTOR TABLE 
38: MOV R2,R1 SSTARTING ADDRESS OF BAD SECTOR TABLE 
MOV ASECCU,R3 “STARTING ADDRESSS OF 'SECCU" TABLE 
MOV #SECCU+64.,R4  :ENDING ADDRESS OF TABLE (32. ENTRIES) 
4$: ADD #252.*2,R1 ZINDEX ADDRESS TO END OF TABLE (126. ENTRIES) 
5$: CMP FMTDPB+12,(R2) :BAD SECTOR ON THIS CYLINDER ? 
BNE 6$ [BR IF NO 
CMPB EMTDPB+11,3(R2) BAD SECTOR ON THE SAME TRACK ? 
BNE 
MOVB 2 (Re) R5 SYES--SAME CYL & TRK SO SAVE BAD SECTOR ADRS 
MOV 5, (R3)+ ‘PUT BAD SECTOR IN 'SECCU' TABLE 
6$: ADD a’ “R2 TADVANCE TO NEXT SET OF BAD SECTORS ENTRIES 
CMP R2.R1 SAT END OF BAD SECTOR TABLE ? 
BGE 8$ ‘BR IF YES 
CMP R3,R4 ‘AT END OF '"SECCU" TABLE ? 


SEQ 005, 





~Z27RMLBO RMOS/4/2 FORMATIER 
WRITE HEADERS 
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177777 
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005532 


177777 
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005434 
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005434 


005536 


005! 
001352 


Of 
eUMewy 


MACRO 


7$: 
0U7404 


8$: 


9$: 


:THIS CODE SORTS THE BAD SECTOR 
sAND DELETES THE DUPLICATED ONES 


SORT1: 


23: 


3$: 


005532 


43: 


WRIRK1: 


005544 


4~APR W381 


8GE 


8 
18:39:56 PAGE 


7$ 

5$ 

PC ,RESTRT 
@—-1 BSF AVL 
TABINT 


(SP) ,R1 
($?)+,R2 
“$ 


#SECCU,R2 
#SECCUT62. R53 
#31. ,R4 
#-1,(R2) 

6$ 

(R2) ,2(R2) 
4$ 

2s 

(R2) ,-(SP) 
2(R2) , (R2) 
(SP) +,2(R2) 
4% 

&-1,(R2) 

4$ 
R2,-(SP) 


#2,R2 
2(R2), (R2)+ 
aor ccueee. Me 


#-1 ,SECCU+62. 
(SP) +,R2 

RS 

6$ 

#2.R2 

R3,R2 

1$ 

RG 

6$ 

ASECCU,R2 
42,R3 

#SECCULR3 

6$ 

1$ 

NEXT 

SOF SW 
RETRY 


FMTDPB+10 
MWC .FMTDPB+4 


5 


15=1 


7 YES--SHOULD NOT SE THAT MANY ENTRIES FOR 
SONNE TRACK 
GET NEXT ENTRY 


IMPROPER MFG INF ORMAT I 
s INDICATE BAD SECTOR FILE IS NOT AVAILABLE 


ON 
AND START AGAIN 
GET ‘USR* BAD SECTOR TABLE 


STARTING ADDRESS OF ‘USR' BAD SECTOR TABLE 


[BR IF NOT DUMMY (TERMINATOR) 
DONE 


TABLE "'SECCU'’ IN ASCENDING ORDER 


;TOP OF THE TABLE 

:BOTTOM_OF THE TABLE 

TOTAL 32 ELEMENT, 7 31 TIMES 
Z1S THE TABLE EMP 

sR if 37 JS, QUICK Exit 

: : N+1 TH ELEMENT 


SDELET N+1 TH ELEMENT, IF SAME 
OTHERWISE, N > N+1 

STORE N ELEMENT 

SWITCH N+? ELEMENT TO N FLEMENT 
sSWITCH N ELEMENT TO N+1 ELEMENT 
zsADJUST TOP POINTER 

TERMINATOR ? 

BR. iF IT 1S 

SAVE TOP POINTER 

:DELET 2(R2) 


[BOTTOM a THE TABLE ? 
:BR IF 


LOAD Eg to TABLE BOTTOM 
RESTORE THE TOP POINTER 
sDECREMENT ONE ELEMENT COUNT 
[BR IF ALL DONE 
s INCREMENT THE TOP POINTER 
:REACH THE BOTTOM ? 

BR IF NOT 
DE CREMENT ONE SORT COUNT 
;BR IF ALL DONE 
TRESET TOP POINTER 
;UPDATE BOTTOM POINTER 
EXIT IF TOP = BOTTOM 


[SORT THE REST ELEMENTS 

7; DONE 

‘FLAG, START OF A NEW TRACK 
SCLEAR FRROR COUNTER 

SZERO THE RETRY COUNTER 


RESTORE SECTOR 
ZRESTORE wC 


SEG G05 


2AM BO RMO 
TE HEADERS 
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43/2 FORMATTER 


012737 


052711 


013702 
162702 
006302 


012737 
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MACRO ¥YO4.00 4S-APR=81 18:39:56 PAGE 15-2 


sRESTORE BA 


Lig th SECTOR 
R1 POINTS TO THE BAD SECTOR TABLE 


ZEND OF Maal TABLE ? 
‘on If 4 debi HAS ALREADY ACCESSED ? 
ADJUST "THe — 


; LOOPIN 
{BAD SECTOR © STARTING SECTOR ? 


;BR IF IT IS 
BR IF START SEC < BAD SECTOR 


SSOMETING IS WRONG, TRY SORTING AGAIN ON 
THE SAME TRACK 

UPDATE NEXT STARTING ADDRESS 

p> igh BAD SECTOR IS THE LAST SECTOR? 


BR IF LAST SECTOR 
:BR IF LESS 
[NEXT = BAD + 1 

sNEXT STARTING ADDRESS 


[MARK THE ACCESSED SECTOR 
:TO SET UP WORD COUNT 


; INCREMENT THE STARTING SECTOR 

MARK THE ACCESSED SECTOR 

fe es ON —_— BAD SECTOR ? 
ai START SECTOR > MAXSEC 

: IMPROPER MFG INFORMATION 


:TO SEE IF NEXT BAD SECTOR IN TABLE 
:BR IF NONE 

sUPDATE THE NEXT 

;BAD SECTOR IS THE LAST SECTOR ? 


:BR IF LESS 

;BAD SEC +1 

sNEXT STARTING ADDRESS 
sMARK THE ACCESSED SECTOR 


s CALCULATE THE — COUNT 
: ENDSECTOR, = NEX 2 


WORD INDEX 
: MUORD CTR FOR 0 TO ENDING SECTOR 
:STARTING SECTOR 
[WORD INDEX 
; WORD COUNT FOR SECTOR o. STARTING SECTOR 
ADJUST ONE SEC 
GET THE NEAGTIVE WORD COUNT 
;LOAD THE WORD CTR INTO DPB 
[LOAD THE STARTING ADDRESS 


046234 005546 MOV #BUFP FMTDPB+6 
THIS CODE TO SET UP WORD COUNT AND BUFFER ADDRESS 
005536 005550 WRIRKA: MOVB NEXT, FMTDPB+10 
005434 MOV #SECCU,RI 
177777 1$: CMP #-1,(R1) 
, BEQ WRTIRKD 
100000 BIT #B1T15,(R1) 
BEG 2$ 
000002 ADD #2,R1 
BR 1$ 
005550 23: CMPB FMTDPB+10, (R1) 
BEQ WRTRKB 
BLO 3$ 
013270 JMP WRTRKX 
3$: MOVB (R1) ,R2 
001360 CMP MAXSEC .R2 
BEQ WRTRKF 
BLO WRTRKD 
INC R2 
005536 MOV R2,NEXT 
100000 BIS #BIT15,(R1)+ 
BR WRTIRKC 
005550 WRTRKB: INCB — FMTDPB+10 
100000 BIS #B1T15,(R1)+ 
005550 CMPB FMTDPB+10, (R1) 
BEQ WRIRKB 
005550 901360 CMPB FMTDPB+10,MAXSEC 
BLOS ~=«:*1$ 
015010 JMP HDRSET 
V7777iT 1$: CMP #-1,(R1) 
BEQ WRTRKD 
MOVB (R11) ,R2 
001360 CMP MAXSEC ,R2 
BEQ WRTRKF 
BLO WRTRKD 
INC 
005536 MOV R2.NEXT 
100000 BIS WBITIS, (RI) 
005536 WRIRKC: MOV NEXT R2 
000002 SUB #2,R2 
ASL R2 
006164 MOV WCTBL(R2) R35 
005550 MOVB FMTDPB+10,R2 
ASL R2 
006164 SUB WCTBL(R2) ,R3 
000402 ADD #258. .R3 
NEG R 
005544 MOV R3,FMTIDPB+4 
BR WRTRKE 
177777 005536 WRIRKF: MOV 4-1 NEXT 


ZALL DONE 


dD $ 
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WRITE HEADERS 


172 014132 9527"! 100000 BIS #81715, (R1) ZMASK THE SECTOR 
173 014136 302 DEC R2 [PATCH FOR THE LAST SECTOR 
i= 014160 05 8R WRTRKH sPATCH 

3 
176 014162 012737 177777 005536 WRIRKD: MOY #-1,NEXT (0 MORE BAD SECTOR 
177 014150 013702 001360 MOV MAXSEC R2 vast SECTOR 
179 014154 006302 WRTIRKH: ASL Re : i INDEX 
180 014156 016203 006164 MOV WCTBL(R2) ,R3 D CTR FOR THE ENDING SECTOR 
181 014162 113702 005550 MOVB = FM7DPB+10.R2 1 STARTING ADDRESS 
182 014166 006302 ASL R2 :WORD INDEX 
183 014170 166203 006164 SUB WCTBL(R2),R3  :WORD CTR FOR THE STARTING SECTOR 
1B4 014174 062703 000402 ADD #258. ,R3 TADJUST ONE SECTOR 
185 014200 005403 NEG R3 “NEGATIVE WORD COUNT 
186 014202 010337 005544 MOV R3,FMIDPB+4 ;LOAD THE WORD COUNT INTO DPB 
187 0°4206 000240 NOP DONE 
189 014210 113702 005550 WRIRKE: MOVB = FMTDPB+10,R2 —-; STARTING ADDRESS 
190 014214 006302 ASL R2 LOCATE THE BUFFER ADDRESS 
13 014216 016237 006064 605546 MOV ADRTBL(R2), FMrpPase ;BUFFER ADDRESS 
193 014224 112737 000163 005542 WRIRK2: MOVB  #WRTHD,FMTDPB+2 ;SET WRITE HEADER & DATA COMMAND IN TBL 
194 014232 012737 014232 001124 MOV #.,$LPERR :SET UP LOOP ON ERROR ADDRESS 
195 014240 012706 0011700 MOV #STACK SP LOAD STACK POINT 
196 014244 004037 031214 1$: JSR RO,RMO5 :GO FORMAT A TRACK 
197 014250 005540 FMTDPB TADRS OF PARAMETERS ~ TBL 
198 914252 000774 BR 1$ SWAIT FOR QUEUE IF FULL 
199 014254 005737 005556 2$: TST FMTDPB+16 WAIT FOR COMMAND TO COMPLETE 
200 014260 001775 BEQ 2s 'BR IF NOT DONE 
201 014262 100024 BPL SBR IF NO ERROR 
202 014264 012737 014312 001176 MOV 23S $, $ESCAPE >:ESCAPE TO 3$ ON ERROR 
203 014272 004737 016550 JSR PC, ERINDX :SEE WHICH ERROR ' 
204 014276 104010 EMT 10° “DRIVE OFFLINE 

5 014300 104011 EMT 1 [PERSISTENT DRIVE UNSAFE ERROR 
206 014302 104012 EMT 12 SUNCORRECTABLE MASSBUS PARITY ERROR 
207 014304 104013 EMT 13 + SOF TWARE TIMEOUT 
208 014306 104014 EMT 14 ZDRIVE UNSAFE ERR 
309 014310 104015 EMT 15 {DRIVE/CONTROLLER. ERROR DURING WRITE 
211 014312 004737 016646 3$: JSR PC,LOP.Ck ;LOOP ON THE ERROR ? 
212 014316 022737 000003 001342 CMP #3.RETRY SERROR RETRY LIMIT ? 
213 014324 001403 BEO 43 “BR IF REACHED 
214 014326 005237 001342 INC RETRY “COUNT THE ERROR 
215 014332 000744 BR 1$ TRY AGAIN 
216 014 005037 001176 4$: CLR $ESCAPE CLEAR ERROR ESCAPE ADDRESS 
317 014340 005037 001342 CLR RETRY SCLEAR THE RETRY COUNTER 


yO wn & one 


ee ee ee ee ey 
WOWNA NEW -o Oo 
a”. » Oe 
— 
* 
Da 
Oo 
™m 


46 014542 
47 014550 
48 014552 
49 014554 


104020 


~ 013701 


113737 
006301 
016137 


000153 
014352 
001100 


031214 
005556 


005566 
001 360 


016550 


040000 
005574 


001316 
014762 
020146 
100000 
020754 


001176 
040000 
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005542 
001124 


001344 
001344 


001176 


005570 


001176 
001410 


005572 


005550 
005546 


~SBITL CHECK TRACK JUST WRITTEN 


SET UP TO CHECK THE TRACK JUST WRITTEN, WITH A WRITE CHECK HEADER 
[AND DATA COMMAND 


CKTRK: — #WCKHD , FMT DPBe2 3SET WRITE CHECK HEADER & DATA COMMAND IN TR, 
V 


#. ,SLPERR SETUP LOOP ON ERROR ADDRESS 
MOV @STACK, SP - 3LOAD STACK POINTER 
18: JSR RO.RMOS 3GO CHECK THE TRACK JUST FORMATTED 
FMTDPB zADRS OF PARAMETERS = TBL 
BR 1$ sWAIT FOR QUEUE IF FULL 
2$: TST FMTDPB+16 sWAIT FOR COMMAND TO COMPLETE 
BEG 2$ BR IF NOT DONE 
BPL 9$ BR IF NO ERROR 


MOVB RM.REG+RMDA,BADSEC ;GET THE ge ADDRESS 
BNE 3$ ;BR IF NOT SECTOR O 
MOV MAXSEC,BADSEC ;RESTORE TO LAST SECTOR +1 


INC BADSEC : INCREMENT TO LAST SECTOR +1 
3$: DEC BADSEC ZADJUST 10 BAD SECTOR 

MOV #11$,$ESCAPE :sESCAPE TO 11$ ON ERROR 

JSR PC, ERINDX SEE WHICH ERROR 

EMT 10 DRIVE OFFLINE 

EMT 11 sPERSISTENT DRIVE UNSAFE ERROR 

EMT 12 :UNCORRECTABLE MASSBUS PARITY ERROR 

EMT 13 SOFTWARE TIMEOUT 

EMT 14 DRIVE UNSAFE ERROR 

NOP FILLER FOR 'ERINDX* ROUTINE 

BIT AWCE .RM.REG+RMCS2  ;WRITE CHECK ERROR ? 

BNE 4$ BR IF YES 


BIT RM.REG+RMER1.(PC)+ :CHECK FOR DATA ERRORS 
-WORD DCK!OPI!DTE!HCRC!HCE'FER 


BNE 4$ s8R IF YES 

EMT 16 ;CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
4$: TST - SOF Sw a Ye THE SECTOR ? 

~ BEQ 5$ BR IF 

MOV #12$, * ESCAPE TO 12$ ON ERROR 

JSR PC RECORD :RECORD THE BAD SECTOR a USR TABLE 

MOV #MF ,HDRBIT INDICATE ‘USR" BAD SECTO! 

JSR PC RESET ;RESET THE HEADER BITS AND WRITE HEADER 

EMT 17 sRETRIES NOT SUCESSFUL-SECTOR NOT ACCEPTABLE 
5$: CLR SESCAPE sRESET geen ADDRESS 

BIT HERR,RM.REG+RMDS ;DATA ERROR ? 

BNE 6$ :BR IF YES 

EMT 24 WRITE CHECK ERROR 
és BR 7$ > CONT INUE 

EMT 20 DATA ERROR DURING WRITE CHECK 
7$: MOV BADSEC,R1 FAILING SECTOR ADDRESS e 

MOVB BADSEC, FMTDPB+10" ie te ADDRESS 

ASL Ri SETUP INDEX TO ADDRESS WORDS 


MOV ADRTBL(R1)., FMTDPA*6 BUFFER ADDRESS FOR FAILING SECTOR 


ZRMLBO RMO5/372 FO 
me CK TRACK JUST WR 


72 014670 
73 016674 
74 014676 
75 616706 
6 014706 
7? 014712 
79 014714 
80 014722 
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33 


001417 


014224 
001316 
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001316 


001360 
017072 
001316 
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001342 
014364 


001176 
001342 
001316 
005536 
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005544 


001316 


005550 


001342 


8$: 


: 


10$: 


¥1$: 


13$: 
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MAXSEC ,R1 3R1 ENDING SECTOR # 

NEXT ;WHOLE TRACK DONE ? 

8$ sBR IF IT IS 

NEXT ,R1 LOAD CURRENT ENDING SECTOR 
#2,R1 sADJUST TWO SECTORS 

R :WORD INDEX 


7 
WCTBL(R1) .R2 sWORDCTR FOR ENDING SECTOR 
FMTDPB+10.F1 © ;STARTING ADDRESS 


R1 ;WORD COUNT 
nails :WORD CTR FOR STARTING SECTOR 
R2,S SAVE THE WORD gt 
a=956.,F mTDPB~4 ;WORD COUNT FOR 1 SECTOR 
SOF S INDICATE THAT A RETRY IS IN PROGRESS 
URTRKZ :REFORMAT ERROR SECTOR 
SOF Sw ;RETRY IN PROGRESS ? 
12$ ;BR IF NOT 
#2, SOF Sw 7SEE IF LAST RETRY 
10$ BR Tt IT. IS 
SOF Sw 7 INCREMENT RETRY COUNT 
1$ [READ AGAIN 
MAXSEC .FMTDPB+10 ;SEE IF LAST SECTOR ON THE TRACK 
12$ ;BR IF IT IS 
PC, SCAWC ;SETUP TO CHECK REMAINING SECTORS ON THE TRACK 
SOF Sw ;CLEAR RETRY COUNTER 
1$ [FINISH CHECKING THE TRACK 
PC,LOP.CK CHECK FOR LOOP ON ERROR 
eh RETRY ;ERROR RETRY REACHED ? 
128 :BR IF IT IS 
RETRY ; COUNT THE RETRY 
1$ :D0 THE WRITE CHECK AGAIN 
SESCAPE ;CLEAR THE ERROR RETURN ESCAPE ADDRESS 
RETRY CLEAR THE RETRY COUNTER 
SOF Sw 7CLEAR THE SOFTWARE RETRY COUNT 
NEXT ZWHOLE TRACK DONE ? 
135$ iBR IF IT IS 


— 


NIH O DWYANE WR $OVOWNAWUFiwn . 


POPPIN 3 oe et ne tt se 


iaiiitaripememanenmesemeeneee 


Bo SMOS/ 4/2 


a er 


=) 


0 
015072 
015074 


¢15076 
015102 


015104 


F ORMATTES 
HEADER 81° 


000002 
013270 
0009 


04 
005434 
177777 


016770 


013270 
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ROUTINE TO SET HEADER BIT 


#8111, aSWR 
1$ 

wRTRKX 

#UF HDRBIT 
ASECCULRS 
#=1, (RO) 

4$ 
#BI1T14, (RS) 
3$ 

#B1T14, (R4) 
(R4) ,BADSEC 


PC RESET 
#2,R4 
2$ 


PC, TRKTST 


VF YHDR 
WRIRKX 


a TRACK ? 
T AGAIN ON THE SAME TRACK 


INDICATE ‘MFG" BAD SECTOR 


TABLE FOR BAD SECTOR ON CURRENT TRACK 
ABLE ? 


s8R_IF SO 
sHAS THE SECTOR BE ASSCESSED ? 
;BR IF SO 


MASK THE SECTOR TABLE 
;SECTOR ADDRESS 

sRESET THE HEADER 

7 INCREMENT THE TABLE POINTER 
; LOOPING BACK 


GET UPDATED TRACK AND CYLINDER ADDRESSES 
RETURN HERE IF DONE 

;AND DO QUICK CHECK OF DISk 

CONTINUE WITH THE FORMAT 


H 5 
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~SBTTL VERIFY HEADER ROUTINE 


3 STHIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE 
4 SPROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING FOR 
5 SPOSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 
? 015110 005037 001342 VFYHDR: CLR RETRY :CLEAR RETRY COUNTER 
8 015114 005737 001320 1ST MODE - SIS 17 "VERIFY HEADER ONLY' MODE ? 
9 015120 001003 BNE 1$ BR IF YES, ELSE 
10 015122 106401 037337 TYPE —_, MSQVER TYPE "STARTING QUICK HEADER VERIFY* 
11 015126 000402 BR 2s 
12 015130 104401 037376 1$: TYPE § ,MSVER :TYPE ‘STARTING HEADER VERIFY’ 
13 015134 004737 016714 28: JSR PC, SETDPB SET DRIVE PARAMETER TABLE 
14 015140 006737 017120 JSR PC; SETHDR [SET HEADERS IN CORE 
15 015144 012700 046234 3$: MOV #BUFP ,RO GET STARTING ADDRESS OF EXPECTED HEADERS 
16 015150 012701 106434 MOV #BUFV.R1 SGET STARTING ADDRESS OF RECIEVED HEADERS 
17 015154 010137 005546 MOV R1,FMTDPB+6 SET UP BUFFER ADDRESS 
18 615160 013737 001352 005544 MOV MWwC,FMTDPB+4 SETUP WORD FOR VERIFY ONLY MODE 
19 £15166 005037 001322 . CLR SNGSE C SSETUP MULTI-SECTOR READ FLAG 
20 615172 005737 001320 TST MODE :1S IT "VERIFY HEADER ONLY* MODE ? 
21 015176 001005 BNE 5$ BR IF YES 
22 015200 012737 177776 005544 48: MOV #-2,FMTDPB+4 SETUP WORD COUNT FOR QUICK VERIFY 
23 015206 005257 001322 INC SNGSEC [SETUP SINGLE SECTOR READ 
25 015212 012737 015212 001124 5: MOV #. ,SLPERR SETUP LOOP ON ERROR ADDRESS 
26 015220 112737 000020 005541 6$: MOVB  #20,FMTDPB+1 _—s | LOAD _‘‘FMT' BIT FOR 16 BIT FORMAT 
2? 015226 023727 005552 001466 CMP FMTLPB+12,4822. :1S IT LAST CYLINDER ? 
28 015234 103404 BLO 7$ “ BR IF _NO 
29 015236 123737 005551 001324 CMPB —- FMTDPB+11,LSTRK :LAST TRACK OF LAST CYLINDER (BSF) ? 
30 015264 001405 BEQ 8$ BR IF YES 
31 015246 005737 001356 7$: TST SEC30 SIS IT 16 BIT MODE ? 
32 015252 001002 BNE 8$ BR IF YES 
33 015254 105037 005541 CLRB | FMTDPB+1 [LOAD ‘FMT’ BIT FOR 18 BIT FORMAT 
34 015260 112737 000143 005542 88: MOVB = #SETFMT.FMTDPB+2° ; "LOAD FORMAT’ COMMAND 
35 015266 004037 031214 98: JSR RO, RMOS ZSTART THE COMMAND 
36 015272 005540 FMTDPB [DPB ADDRESS 
37 015274 000774 BR 9$ TQUEUE FULL RETURN 
38 015276 005737 005556 108: TST FMTD>B+16 [LOOK FOR DONE 
33 015302 001775 BEO 10$ SLOOP UNTIL FINISHED 
41 015304 112737 000173 005542 MOVB = #RDHD, FMTDPB+2 SET UP READ HEADER & DATA COMMAND 
42 015312 004037 031214 JSR RO.RMOS GO READ HEADER 
43 015316 005540 FMTDPB ADRS OF PARAMETER TBL 
44 015320 000737 11$: BR 6$ [WAIT IF QUEUE IS FULL 
45 015322 005737 005556 1S: << TSt FMTDPB+ 16 [WAIT FOR COMMAND TO COMPLETE 
46 015326 001775 BEQ 12$ BR IF NOT DONE 
47 015330 100046 BPL 15$ BR IF NOT ERROR 
4 
49 015332 012737 015562 001176 MOV #18$,SESCAPE  ;;ESCAPE TO 18$ ON ERROR 
50 015340 (04737 016550 JSR PC ,ERINDX SEE WHICH ERROR 
51 015344 104010 EMT 10 SDRIVE OFFLINE 
52 015346 104011 EMT 11 ZPERSISTENT DRIVE UNSAFE ERROR 
53 015350 104012 EMT 12 TUNCORRECTABLE MASSBUS PARITY ERROR 
54 015352 104013 EMT 13 SOFTWARE TIMEQUT 
55 015354 106014 EMT 14 DRIVE UNSAFE ERROR 
56 015356 000240 NOP ZFILLER FOR "ERINDX' ROUTINE 


TRMLBO RMOS/3/2 FORMATIER 
sERIF Y MEADER ROUT INE 


58 015360 932737 040000 


59 015366 001427 
69 015370 005737 601322 
61 015374 001701 
fe 915576 005237 001362 
63 015402 022737 000005 
64 915410 101273 
65 015412 022737 000200 
66 015620 00146 
67 Oacks 0327357 000400 
68 0154 001401 
oF 015432 

015432 104022 


71 015434 022737 100000 


75 015446 005037 001342 
76 €15452 012737 015562 


82 015 052737 010000 
83 015512 052711 140000 
84 015516 011137 046224 
85 015522 023737 046224 
86 015530 001401 
af 015532 104023 
89 015534 016037 000002 
90 015542 016137 000002 
91 015550 023737 046226 
92 015556 001405 
af 0155: 104007 
95 015562 004737 916646 
oy 015566 000137 016510 
98 015572 005737 001320 
99 015576 001416 
100 015600 123737 005550 
101 015606 001412 
102 015610 105237 005550 
103 015614 062700 001004 
104 015620 005737 001322 
105 015624 001235 
106 015626 062701 001004 
i 015632 000705 
109 015634 105037 9005550 
110 015640 105237 005551 
111 015644 123737 005551 
112 015652 101003 
113 015654 004737 017320 


13$: 


005622 148: CMP 


15$: CL 
001176 MOV 


001466 CMP 
001324 CMPB 


046230 BIS 
168%: BIS 


046230 CMP 


046232 178: MOV 
046226 MOV 
046232 CMP 


188: JSR 


19$: TST 
001360 CMPB 


20$: CLRB 
001332 CMPB 


i$ 
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giant 7 ANY pave FRRORS ? 


7BR IF NO 
SNGSEC ZALREADY READING SINGLE SECTORS > 
4$ [BR IF NO 
RETRY oe ~ ts COUNT 
#3, RETRY STRIED 3 TIMES 
4$ BR IF NO 
#HCE,RM.REG*+14 315 IT A HEADER COMPARE ERROR ? 
13% ;BR IF YES 
#HORCRM.REG*14 s1S IT A HEADER CRC ERROR ? 
14$ :BR IF NO 
22 s'HCE* OR ‘HCRC* ERROR VERIFYING HEADERS 
ARBSE,RM.REG+42 ;BAD SECTOR ERROR ? 
19% sBR IF YES 
21 SCONTROLLER/DRIVE ERROR VERIFYING HEADERS 
RETRY zCLEAR RETRY COUNT 
#183, $ESCAPE : ESCAPE TO 18% ON ERROR 
(RO) , RBUF +4 :GET EXPECTED CYLINDER HEADER 


ti i Ae HH gd CYLINDER ? 
gg aa Awe — OF LAST CYLINDER (BSF) ? 


R IF 
#FMT ,RBUF +4 BAD SECTOR FILE IS ALWAYS 16 BIT MODE 
AMF UF ,(R1) SET MFG AND USR GOOD SECTOR BITS 
(R1) ,RBUF :GET RECIEVED CYLINDER HEADER 
RBUF , RBUF +4 :SEE IF CYL READ EQUALS CYL EXPECTED 
17$ 3:BR IF CYL CORRECT 
23 7 CYLINDER FIELD IN HEADER IS NOT CORRECT 


2 (RO) ,RBUF +6 iGET EXPECTED TRACK/SECTOP ‘EADER 
2(R1) , PBUF +2 :GET RECIEVED TRACK/SECTOR HEADER 
RBUF +2,RBUF+6  ;1S TRACK AND SECTOR CORRECT ? 


19$ :BR if <YES 
is TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT 
PC,LOP.CK CHECK FOR LOOP ON ERROR 
REJCTS :FAILED DURING HEADER CHECK, REJECTED 
MODE ae IT "FORMAT' MODE ? 
20% TE YES 
FMTDPB+10, MAXSEC DONE WITH ALi SECTORS ? 
0$ :BR IF YES 
FMTDPB+10 UPDATE SECTOR ADDRESS 
#516. ,RO sADJUST POINTER TO NEXT EXPECTED HEADER 
SNGSEC SREADING ONE SECTOR AT A TIME ? 
11$ SBR IF YES 
#516..R1 sADJUST POINTER TO NEXT RECIEVED HEADER 
15$ 3;GO COMPARE NEXT SECTOR 
FMTDPB+10 START AT SECTOR 0 
FMTDPB+11 7 INCREMENT TRACK NUMBER 


FMTDPB+11 ,MAXTRK sWAS IT LAST TRACK ? 
21s SOR IF VES 
PC ,UPDTRK UPDATE TRACK ADDRESS IN BUFFER 


a te nett se utnte-weestaseenpetyerneeethnne 


i$ 
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(ERIFY HEADER ROUTINE SEO 
114 015660 000425 Sh 248 :GO READ NEXT TRACK 
116 915662 113737 001334 005551 218: MOVB MINTRK,FMTDPB411 7GET STARTING TRACK ADDRESS 
117 015670 005737 001376 TST WRAP i SEEKING: FROM HI TD LO CYLINDERS ? 
118 015674 001407 BEQ = 22$ BR IF 
119 015676 005337 005552 DEC —- FMTDPB+12 SDECREMENT CYLINDER ADDRESS 
120 015702 023737 005552 001326 (MP = FMTDPB+12,MAXCYL DONE WITH VERIFY ? 
121 015710 002413 BLT 258 ;BR IF YES 
122 015712 000406 BR 23$ 
123 015714 005237 005552 228: INC — FM DPB+12 INCREMENT CYLINDER ADDRESS BEING CHECKED 
1e4 015720 023737 005552 001326 CMP = EMTDPB+12,MAXCYL DONE WITH VERIFY ? 
125 015726 101004 BHI —-25$ ;BR_IF YES 
126 015730 004737 017206 23$: JSR —- PC, UPDCYL ZUPDATE CYLINDER ADDRESS IN BUFFER 
1e7 015754 000157 015144 aus: P38 GO READ NEXT CYLINDER 


016014 
016016 


DOOCOO0 COCOO BOeO0000 
Babak ih aad aiand aot 
ak ed ed aed 

nd ond ed 

loam pine) 


ad eld ed ae end eed 
ee 


112737 
112737 


004037 


001775 


012737 
113737 


112737 


004037 
005540 


100060 


012737 
004737 
104010 
104011 
104012 
104013 
104014 
104015 


001406 


001342 
020250 


020410 
000020 
000143 


031214 


005556 


001466 
001324 
005550 
157700 
046234 
000163 


031214 


005556 


016126 
016550 


001342 
000003 


016464 
000037 
005566 


000037 
001344 
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MACRO VO4.00 4-APR-81 18:39:56 PAGE 19 


005541 
005542 


005552 
005551 


005544 


005546 
005542 


001176 


001342 


005550 
001344 


001344 
005550 


-SBITL 


END OF PASS ROUTINE 


LLU ERE T EERE ERE ERE ee eee 
:*INCREMENT THE PASS NUMBER ($PASS) 
z*If THERES A MONITOR GO 10 IT 


7*1F THERE ISN'T 


$EOP: 
13: 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


MOVB 
MOVB 


JSR 
FMTDPB 


FMT 
BR 


JSR 
DPB 


JUMP TO DONE 
UPDBSF sUPDATE LAST TRACK ? 
8$ ;BR_IF NO 
RETRY CLEAR RETRY COUN 
R5,SORT2 . ;SORT THE USTAB IN ASCENDING FORM 
" TABLE ENTRY POIN 
PC, SETBSF 7SETUP THE BUFFER FOR THE BAD SECTOR FILE 
#20,FMTDPB+1 316 BIT MODE 
ASETFMT ,FMIDPBt2 SET FORMAT COMMAND 
RO,RMO5 ;CALL THE DRIVER 
2s ;LOOP IF QUE QU FAILS 
FMTDPB+16 sALL DONE ? 
3$ SBR IF NOT 


#822. ,FMTIDPB+12 ;CYLINDER ADDRESS 
LSTRK,FMTDPB+11 ; TRACK NUMBER 

FMTDPB+10 SECTOR 0 
#~<258.%32.>,FMTDPB+4  ;WORD COUNT 
#BUFP,FMTDPB+6 ;BUFFER ADDRESS 
#WRTHD,FMTDPB+2 ;WRITE HEAD AND DATA COMMAND 


RO,RMOS :CALL THE DRIVER 

4$ ;LOOP IF QUEUE FAILS 

FMTDPB+16 sALL DONE ? 

5$ 7BR IF NOT 

8$ sEXIT IF NO ERROR 

#6$% , SESCAPE sERROR ESCAPE ADDRESS 

PC ,ERINDX sERROR INDICATOR RT. ~ 

10 :DRIVE OFFLINE 

11 :PERSISTENT DRIVE UNSAFE ERROR 

12 :UNCORRECTABLE MASSBUS PARITY ERROR 
13 ; SOFTWARE TIMEOUT 

14 DRIVE UNSAFE ERROR 

15 :DRIVE/CONTROLLER ERROR DURING WRITE 

RETRY ee “eg COUNT 

#3,RETRY SOVER 3 TIMES ? 

4$ ‘BR Pe Tt TS 

REJCT3 S UNABLE TO WRITE THE BAD SECTOR TRACK 
#31.,FMTDPB+10 Aaa SECTOR ? 

8$ R IF ALL SET 

RM.REG+RMDA, papsée : FOUND THE BAD SECTOR 

7$ :BR IF NOT TO 


#31. ,BADSEC :THE LAST SECTOR IS A BAD SECTOR 
BADSEC ,FMTDPB+10° LOAD THE NEW STARTING SECTOR 


ZRMLBO RMO5/3/2 FORMATTER 
FND OF 


~ od 


MH OVODNAUS WI 


PASS ROUTINE 
BEA, 


000240 


000137 
016366 


105737 


0 032777 
6 001002 
0 000137 
4 000137 


037427 
001126 


037442 
001126 


001402 
001216 
100000 


000042 


001150 
017360 
024414 
010446 
000001 


011124 
013056 


MACRO v04.00 


005544 
005544 
005544 


8S: 


9$: 


001400 
001216 


$SEOPCT: 


SENDCT: 
$GET42: 


SENDAD: 


$DOAGN: 
SRTNAD: 


DONE : 


162536 1$: 


2$: 


4-APR-81 
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aert . R1 


ADRTBL(R1), eMIDPASe 


#-<258.*32.>, FMIDPB+4 :WORD 
WCTBL (R1) ,FMIDPB+4 


RETRY 
4$ 


-MSCMPT 
SERTIL 
9% 


-NUMERR 
$ERTTIL.- 
$ERTTL 
UPDBSF 
~STARS 
DEVMP 
DONE 

oe -DEVMP 
ae ,$PASS 
j 


$DOAGN 
 aenaiaeed 


(SP) 


af42,RO 
$DOAGN 


PC, (RO) 


a(PC) + 
DONE 


$AUTOB 

1$ 
PC,ST.CLK 
PC, STKINT 
ST] 
ASWO,ASWR 
2$ 


ASK2 
$13 


; DON'T 
¢3LO0P? 


;RESET THE RETRY FLAG 


;BR BACK 
i TYPE ‘COMPLETED 


iL’ THE WORD CTR AND BUFFER 
D INDEX 
;BUFFER ADDRESS 
COUNT 


[ANY ERRORS SETECTED ? 


:BR_IF NO 
: TOTAL ERRORS 


;zSAVE $ERTTL FOR TYPEOUT 

3.GO TYPE~-DECIMAL ASCII WITH SIGN 
;CLEAR THE ERROR ACCUMULATOR 
;DON'T ALLOW UPDATE OF 


LIYPE ‘xekxnnnnnnnn! 


"BSF" AT END OF PASS 


TALL ASSIGNED DEVICE DONE ? 


O FORMAT 


NEXT DRIVE 


:10 
:RESTORE DEVifE MAP FOR AUTO MODE 


LzYES 
isRESTORE COUNTER 


7;2GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 
:;CLEAR THE WORLD 

::GO TO MONITOR 
32,SAVE ROOM 


73FOR 
7ZACT11 
7 RETURN 


id INCREMENT THE PASS NUMBER 
ALLOW A NEG. 


NUMBER 


a ie Ma AUTO MODE ? 
N 


7BR OIF 


;START THE CLOCK 


INITIALIZE THE KEYBOARD 


BR IF 


ASK FOR NEXT DRIVE 


:RETURN TO AUTO MODE START 
71S SwOO=1 (SET) ? 
YES 


;GO--LOOP ON SELECTED DRIVE 


ZRMLBO RMOS/3/2 FORMATTER 
REJECT MESSAGE TABLE 


NN) -2 2 2  ~3 2 od es 


16510 
21 916514 
22 016520 


24 016522 
25 016526 
so 016532 


e 

28 016534 
27 016540 
s 016544 


104401 
104401 
000405 


104401 
104401 
000400 


905037 
104401 
000137 


001205 
037643 


601406 
042226 
015740 


; "5 
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001176 
001364 


.SBITL 


REJCT1: 


REJCTe: 


REJCTS: 


REJCTS: 


REJCTS: 


REJCT6: 


REJEND: 


REJECT MESSAGE TABLE 


CRLF 
sTYPE "DISK IS AN ALIGNMENT PACK’ 


-SCRiF - 2CRLF 
MOV #REJEND,SESCAPE ;;ESCAPE TO REJEND ON ERROR 


TYPE -$CRLF 
TYPE »MESG17 
BR REJEND 


TYPE -SCRLF 
TYPE »MESG18 
BR REJEND 


CLR UPDBSF 
TYPE .ABORT 
JMP SEOP 


MOVB aia 


s 
. 
. 
. 
’ 
. 
’ 
. 


; TRACK NUMBER FOR ERROR LOG 


REPORT ILLEGAL BAD SECTOR 


; CR=LF 
TYPE ‘UNABLE TO WRITE BAD SECTOR FILE TRACK" 


HLF 
;TYPE "FATAL ERROR DETECTED’ 
;CR=LF 
:TYPE "FAILURE DURING HEADER VERIFY' 


CRLF 
;TYPE "OVER 126. BAD SECTORS DETECTED’ 


;DON'T ALLOW BSF UPDATE AT END OF PASS 
3 “OPERATION ABORTED’ 


N 5 
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UPPORT SUBROUTINES 


; -SBTTL SUPPORT SUBROUTINES 
3 :THIS ROUTINE DETERMINES THE ERROR TYPE 
4 
5 916550 010046 ERINDX: MOV RO,-(SP) 7 SAVE RO 
6 016552 010146 MOV R1,-(SP) ;SAVE R1 
7 016554 005091 CLR R1 CLEAR R1 
8 016556 012700 005556 MOV #FMTDPB+16,RO. GET DRIVER STATUS WORD 
9 016562 032710 BIT (PC) +, (RO) ;CHECK ERROR TYPE 
10 016564 060006 -WORD 61714/B1T13!BIT27B1T1 on te OFFLINE 
11 016566 001921 BNE 5$ :BR_IF LINE 
12 016570 032710 BIT (PC) +, (RO) i CHECK ERROR TYPE 
13 016572 010000 -WORD BIT12 DRIVE PERSISTENTLY UNSAFE 
14 016574 001015 BNE 4$ 'BR IF UNSAFE 
15 016576 032710 BIT (PC) +, (RO) CHECK ERROR TYPE 
16 016600 006000 «WORD 81711!BIT10 ; UNCORRECTABLE MASSBUS PARITY ERROR ? 
17 016602 001011 BNE 3$ :BR_IF PARITY ERROR 
18 016604 632710 BIT (PC) +, (RO) sCHECK ERROR TYPE 
19 016606 001400 -WORD B1TO9!B1T08 [SOFTWARE TIMEOUT ? 
20 616610 001005 BNE 2s BR IF YES 
21 016612 032710 BIT (PC) +, (RO) CHECK ERROR TYPE 
22 016614 000020 -WORD BITO4 :DRIVE UNSAFE ERROR ? 
23 01661€ 001001 BNE 1$ [BR IF YES 
24 016620 005201 INC R1 7 INDEX=12, ERROR="USER DEFINED’ 
25 016622 005201 1$ INC R1 ; INDEX=10, ERROR=14 
26 016624 005203 2$ INC R1 : INDEX= 6, ERROR=13 
27 016626 005201 3$ INC R1 3 INDEX= 4, ERROR=12 
28 016630 005201 4$ INC R1 7 INDEX= 2, ERROR=11 
29 016632 006301 5$: ASL R1 : INDEX= 0, ERROR=10 
30 016634 060166 000004 : ADD R1,4(SP) [DEVELOP THE RETURN ADDRESS 
31 016640 012601 MOV (SP)+,R1 RESTORE R1 
32 016642 012600 MOV (SP) +,RO SRESTORE RO 
e 016644 000207 RTS PC RETURN 
eH sROUTINE TO CHECK FOR LOOP ON ERROR 
37 016646 032777 001000 162300 LOP.CK: BIT #SWO9, ASWR ;LOOP ON ERROR ? 
38 016654 001402 BEQ 1$ :BR IF NOT 
i 016656 000177 162242 JMP @$LPERR :GO TO THE LOOP ON ERROR ADDRESS 
41 016662 005037 001176 18: CLR SESCAPE sCLEAR THE ERROR ESCAPE ADDRESS 
42 016666 033727 005556 BIT FMTDPB+16,(PC)+  ;CHECK FOR ‘FATAL’ ERROR 
43 016672 072002 . WORD B1T14 1111 3!B1112:B17 10181701 : "FATAL" ERROR BITS 
44 016674 001004 BNE 2s sBR IF 
45 016676 932737 004000 005574 BIT #WLE,RM.REG+RMERI URITE “Lock ERROR ? 
46 016794 001402 BEQ $ ;BR’ IF NOT 
pid 016706 000137 016476 2$: JMP REJCT4 : TERMINATE THE FORMAT: 
rs 016712 000207 3$: RTS PC 7 RETURN 
51 THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 
53 016714 113737 001222 005540 SETDPB: MOVB DRIVE ,FMTDPB SET UP DRIVE 4 
54 016722 105037 005543 CLRB FMTDPB+3 ;CLEAR HIGH ORDER ADRS BITS 
55 016726 0137357 001352 005544 MOV MWC, FMTDPB+4 ;LOAD UP WORD COUNT 
56 016734 012737 046234 005546 MOV #BUFP.FMIDPB+6 ;LOAD UP CURRENT ADRS 
$7 016742 105037 005550 CLRB FMTDPE+10 ;SET SECTOR TO ZERO 


0 AMO5S/3/2 FORMATTER 
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lt el ak lt ed a 


SUBROUT INES SEQ 0066 
58 096746 113737 001334 005551 MOVB MINTRK,FMIDPB+11 SET UP STARTING TRK ADRS 
016754 013737 G01330 005552 MOV MINCYL.FMTDPB+12 ;SET UP STARTING CYL 
016762 005037 005556 CLR FMTDPB+16 CLEAR R4 STATUS 
016766 000207 RTS PC >RETURN FROM SETUP 
THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT 
:17 IS ENTERED AFTER EVERY TRK OPERATION 
016770 TRKTST: 
016770 105237 005551 INCB FMTDPB+11 : INCREMENT TRACK NUMBER 
616774 123737 005551 001332 CMPR FMTDPB+11,MAXTRK ;LAST TRACK TO BE FORMATTED ON THIS CYLINDER ? 
017002 101003 BHI 1$ jBR IF YES 
017006 0.4737 017320 JSR PC ,UPDTRK ZUPDATE TRACK ADDRESS IN BUFFER 
3 017770 «001.25 BR 4$ sEXIT 
017012 113737 901334 005551 1$: MOVB MINTRK,.FMTDPB+11 7GET STARTING TRACK ADDRESS 
017020 005737 001376 TST WRAP : SEEKING FROM HI TO LO CYLINDER ? 
017024 901407 BEQ 23 [BR IF 
017026 005337 005552 DEC FMTDPB+12 ‘ DECREMENT CYLINDER ADDRESS 
017032 023737 005552 001326 CMP FMTDPB+12,MAXCYL DONE WITH FORMATTING ? 
017060 0241 BLT 5$ ;BR IF YES 
017042 ag 3$ 
017044 005237 005552 2$: INC FMTDPB+12 INCREMENT CYLINDER ADDRESS 
017050 023737 005552 001326 (MP FMTDPB+12,MAXCYL DONE WITH FORMATTING ? 
82 017056 101094 BHI $ ;BR IF YES 
2 017060 004737 017206 3$: JSR PC ,UPDCYL ; UPDATE CYLINDER ADDRESS IN BUFFER 
85 017 062716 000002 4$: ADD #2, (SP) zADD TWO TO RETURN ADRS (NOT DONE) 
a 017070 000207 S$: RTS PC RETURN, DONE FORMAT !! 
88 :THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS 
gy ZAFTER A WRITE CHECK ERROR 
91 017072 013737 001346 005544 SCAWC: MOV SAVWC,FMTDPB+4 ;SET UP WC FOR REMAINING SECTORS 
92 017100 062737 001004 005546 ADD #575. ,FMTDPB+6 ;:SET UP BA FOR REMAINING SECTORS 
93 017106 005237 005550 INC FMTDPB+10 ADVANCE TO NEXT SECTOR IN TBL 
94 017112 005037 001316 CLR SOF Sw RESET RETRY COUNTER 
= 017116 000207 RTS PC RETURN TO COMPLETE TRK FORMAT 
97 
98 THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
he SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK INFORMATION 
01 017120 013701 001360 SETHDR: MOV MAXSEC,R1 SET UP SECTOR COUNT 
02 0171246 012737 000901 01214 MOV #1, $TESIN :GARBAGE CODE FOR APT 
03 017132 012700 046234 MOV #BUF PRO SET UP HEADER POINTER IN RO 
04 017136 013702 001330 MOV MINCYL, R2 ;PUT STARTING CYL 4 IN R2 
05 017142 052702 140000 BIS AMF 'UF Re SET MFG AND USR GOOD BITS (DEC STANDARD 144) 
06 017146 013703 001334 MOV MINTRK.R3 [PUT STARTING TRK # IN R3 
07 017152 000303 SWAB R3 JUSTIFY TRACK ADRS 
08 017154 005737 001356 TST SEC30 :SEE IF 30 OR 32 SECTOR MODE 
09 017160 001402 BEQ A 7BR IF 30 SECTOR MODE 
10 017162 052702 010000 BIS #FMT R2 :SET THE 32 SECTOR FORMAT BIT 
11 017166 010220 1$: MOV R2, (R0)+ WRITE IN HEADER AREA OF CORE THE CYL ADRS 
12 017170 010320 MOV R3,20)+ ZWRITE IN HEADER AREA OF CORE THE TRK ADRS 
13017172 062700 001000 ADD #512.,R0 SET UP FOR NEXT HEADER 
14 017176 005203 INC :UPDATE SECTOR ADRS FOR NEXT HEADER 
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115 017200 005301 DEC R1 at ae COUNT OF SECTORS 
116 017292 002371 aGE 7 BR IF NOT LAST SECTOR 
ve 017204 000207 RTS PC TEXIT = HEADERS ARE LOADED INTO CORE 
119 THIS ROUTINE UPDATES THE CVLINDER ADRS OF THE HEADER WORDS 
1” “AND FILLS DATA BUFFER FIELD IN CORE 
122 017206 UPDCYL: 
017206 010046 MOV RO,-(SP) 3zPUSH RO ON STACK 
017210 010146 MOV R1,-(SP) 3 3PUSH R1 ON STACK 
017212 010246 MOV R2,-(SP) PUSH R2 ON STACK 
017214 010346 MOV R3,-(SP) PUSH R3 ON STACK 
123 017216 013701 001360 MOV MAXSEC,R1 ;SET UP SECTOR COUNT 
126 017222 012700 046234 MOV #BUFP RO SET UP HEADER POINTER IN RO 
125 017226 013703 001334 MOV MINTRK,R3 GET STARTING TRACK 
126 017232 (00303 SWAB R3 i STARTING SECTOR = 0 
127 017234 005737 001376 1$: TST WRAP ; SEEKING FROM HI TO LO CYLINDERS ? 
128 017249 001402 BEQ 2$ ‘BR IF NO 
129 017242 162710 000002 SUB #2, (RO) :DECREMENT CYLINDER NUMBER 
130 017246 005220 2$: INC (RO) + : INCREMENT FOR NEXT CYLINDER 
131 017250 010320 MOV R3,(RO)+ SWRITE TRACK AND SECTOR HEADER 
132 017252 012702 001000 MOV #512.,R2 :DATA FIELD LENGTH 
133 017256 013720 001336 3$: MOV PATA, (RO) + :FILL BUFFER 
134 017262 013720 001340 MOV PATB, (RO) + FILL BUFFER 
135 017266 162702 000004 SUB #4 Re ‘ee OF DATA FIELD ? 
136 017272 001371 BNE 3$ 
137 017274 005203 INC R3 INCREMENT TO NEXT SECTOR 
138 017276 005301 DEC R1 ; COUNT SECTORS 
139 017300 002355 BGE 1$ ‘BR IF NOT LAST SECTOR 
14U 017302 012603 MOV (SP) +,R3 ‘POP STACK INTO R3 
017304 012602 MOV (SP) +,R2 ::POP STACK INTO R2 
017306 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
017310 012600 MOV (SP)+,RO 7z;POP STACK INTO RO 
141 017312 005237 001214 INC $TESTN : INCREMENT TST NUMBER FOR EACH CYLINDER CHANGE 
142 ;GARBADE CODE FOR APT 
14? 017316 000207 RTS PC pEXIT 
a THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 
147 017320 UPDTRK : 
017320 010046 MOV RO,-(SP) ; sPUSH RO ON STACK 
017322 010146 MOV R1,-(S?) PUSH R1 ON STACK 
148 017324 013701 001360 MOV MAXSEC,R1 :SET UP SECTOR COUNT 
149 017330 012700 046234 MOV #BUFP RO :SET UP HEADER POINTER IN RO 
150 017334 005720 TST (RO) + ‘POINT HEADER POINTER TO TRK ~ SEC ADRS 
151 017336 062710 000400 1$: ADD #400, (RO) : INDEX TRK ADRS 
152 017342 062700 001004 ADD 4516. RO :SET UP FOR NEXT HEADER 
153 017346 005301 DEC R1 ; COUNT SECTORS 
154 017350 002372 BGE 1$ ‘BR IF NOT LAST SECTOR 
155 017352 072601 MOV (SP) +.R1 ::POP STACK INTO R1 
017354 012600 MOV (SP)+,RO :gPOP STACK INTO RO 
1% 017356 000207 RTS PC sEXIT 
128 ROUTINE TO CHECK FOR KW1T=-L OR KW11=P CLOCKS 
160 017360 012737 017436 000004 ST.CLK: MOV MSTCLK1,a#ERRVEC ;SET UP VECTOR FOR P CLK 
161 017366 005037 000006 CLR @AERRVE( +2 iNEW PSW 
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162 oe 005777 1702 TST @$LKCSR s CHECK FOR KW11-P 
7376 1304 MOV $LPVEC ,-(SP) : VECTOR ADDRESS 
7616 000000 MOV ACLOCK ,a( SP) sSET UP KW11=P VECTOR 


165 017410 062716 000002 ADD #2, (SP) POINT TO PSW 

166 017414 012736 000300 MOV #PR6,a(SP)+ sPSw - PRI 6 

167 017420 012777 177777 161654 MOV #-1,@$LKCSB ;LOAD COUNTER BUFFER 

168 017426 012777 000135 161644 MOV #135 aSLKCSR SET CLK = CNT UP 

169 017434 000426 BR STCLK3 

170 017436 062706 000004 STCLK1: ADD #4,SP RESTORE THE STACK POINTER 

171 017442 012737 617506 000004 MOV #SiCLK2,@M#ERRVEC™ CHANGE ERROR VECTOR 

172 017450 005777 161634 TST a$LKS LOOK FOR KW11=L 

173 017454 013746 001312 MOV $LLVEC.-(SP) TKWIT=L VECTOR ADDRESS 

174 017460 012776 017616 000000 MOV ACLOCK ,a(SP) 7SET UP KWi1=L VECTOR 

175 017466 062716 000002 ADD #2, (SP) zs INCREMENT VECTOR ADDRESS 

176 017472 012736 000300 MOV #PR6,a(SP)+ ;PSW - PRI 6 

177 017676 012777 000100 161604 MOV #100, a$LKS SET KW11-L INTERRUPT ENABLE 

178 017504 000402 BR STCLK3 

179 017506 062706 000004 STCLK2: ADD 4 ,SP RESTORE THE STACK POINTER 

180 017512 012737 000006 000004 STCLK3: MOV #6, Q#ERRVEC RESTORE THE ERROR VECTOR 

3 17520 000207 RTS PC 

is ;THIS CODE PRINT THE ABORT MESSAGE AND LET O.P. RESTART 

185 017522 104401 037572 RESTRT: TYPE »MESG2 STYPE on een FG INF ORMAT ION" 
186 017526 105737 001150 TSTB $AUTOB [RUN UNDER APT ? 

187 017532 001000 BNE 1$ BR IF SO 

188 017534 004737 024414 1$: JSR PC, STKINT ;ENABLE TO READ 

189 017540 104401 042033 TYPE »MSINIT S TYPE INITIALIZE BAD SECTOR FILE (L) N ?° 
190 017544 1044171 RDLIN [READ THE ENTRY 

191 017546 012600 MOV (SP) +,RO SAVE ADDRESS OF RESPONSE 

192 017550 105710 TSTB (RO) WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'N')? 
193 017552 001414 BEQ 3$ BR IF YES 

194 017554 105760 000001 TSTB 1(RO) ;WAS IT TERMINATED WITH CARRIAGE RETURN ? 
195 017560 001006 BNE 2$ BR IF NO 

196 017562 122710 000131 CMPB #*Y, (RO) . :WAS IT A 'Y" RESPONSE ? 

197 017566 001412 BEQ 4$ [BR IF YES 

198 017570 122710 000116 CMPB #*N, (RO) 2WAS z A_'N* RESPONSE ? 

199 017574 001403 BEQ 3$ :BR iF YES 

200 017576 104401 037174 2$: TYPE ,-BADENT “TYPE BAD ENTRY MESSAGE 

201 017602 000754 BR 1$ TRY "i 

202 017604 104401 001205 3$: TYPE ,SCRLF 7 CL 

203 017610 000137 016534 JMP REJEND itd TO REJECT END 

Sos 017614 000207 43: RTS PC 7 EX 

SOS THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 

208 017616 012746 000020 CLOCK: MOV #16..~(5P) :PUT MILLISECONDS ON THE STACK 
209 017622 004737 034476 JSR PC,RMTMR :GO REPORT TIME 

$19 017626 000002 RTI :RETURN AND CONTINUE 

51% ROUTINE TO INTERCEPT “CONTROL C° 

214 017630 005737 030400 C.ENTR: TST TRNSWT ALL ACTIVITY STOPPED ? 

215 017634 001375 BNE C.ENTR ;BR IF NOT 

$i§ 017636 000137 007034 JMP TST] START PROGRAM AT BEGINNING 

218 ROUTINE TO INTERCEPT "CONTROL O° TYPED WHILE PROGRAM IS FORMATTING 


eS senses eneesr 
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"RMLBO RMOS/3/2 FORMATTER 

PPORT § NES 
219 ZTHE DISK PACK. THE CURRENT DISK ADDRESS IS ‘'YPED TO THE TERMINAL 
ss ZDURING THIS ROUTINE IN THE FOLLOWING FORMAT. 
céi s 
338 ZPRESENT ADDRESS IS: CXXX TXXX ;WHERE 'C* IS THE CYLINDER ADDRESS 
§ ts ; ZAND ‘T* IS THE TRACK ADDRESS.(CIN DECIMAL) 
$3 161314 O.ENTR: MOVB a$TKB,-(SP) ;READ tno rey BUFFER 
226 177600 BIC #°(177, (SP) SSTRIP PARIT 
2e7 000003 CMP (SP) 4 s CONTROL=C 2 
228 BNE es ‘BR IF NO 
229 0 025621 TYPE ~SCNTLC iTYPE A a <*C) 
230 017664 005726 TST (SP) + RESTORES 
231 017666 105737 001150 TSTB $AUTOB gil in AUTO MODE ? 
232 017672 001404 BEQ 1$ RIF 
233 017674 005037 001400 CLR DEVMP ‘CLEAR DEVICE MAPS 
234 017700 005037 001402 CLR DEVMP+2 
sa 017704 0001357 016534 1$: JMP REJEND ; JUMP TO CONTROL C REJECT 
237 017710 022627 000017 es: CMP (SP)+,#17 nS eal ? 
238 617714 001406 BEQ 3$ YES 
239 017716 005777 161240 TST a$TKB ‘CLEAR DONE BIT 
240 017722 012777 000100 161230 MOV #100, a$TKS ENABLE TTY INTERRUPT 

017730 000002 RTI 

528 017732 38: 
244 177776 TYPADR: CLR PS :SET PROCESSOR TO PRIORITY O 
245 017630 MOV AC. ENTR,CNTLC : CHANGE "CONTROL C‘ RETURN ADDRESS 
246 037506 TYPE -ADDRIS oo ADDRESS IS: ° 
247 036613 TYPE BY 5 
248 005552 MOV FMTDPB+12, -(SP) ;PUT THE CYLINDER — ON THE STACK 
249 027100 JSR PC. $SB2D : CONVERT IT TO DECIMA 
250 026670 JSR PC, $SUPRL TYPE DECIMAL NUMBER,  MeFT JUSTIFY 
251 036621 TYPE ,BLNKS Bhas3 2 SPACES 
252 036615 TYPE 
25 CLR ) ‘CLEAR THE STACK 
254 605551 MOVB FMTDPB+11,(SP) PUT THE TRACK ADDRESS ON THE STACK 
255 027100 JSR PC, $SB2D : CONVERT IT TO DECIMAL 
256 020012 026670 JSR PC, $SUPRL sTYPE DECIMAL NUMBER, LEFT JUSTIFY 
257 020016 001205 TYPE -SCRLF CR=LF 
258 020022 017642 MOV AOL ENTR,@4TKVEC RESTORE ENTRANCE FOR CONTROL-O 
can 020030 RTI RETURN 
261 PARAMETER ENTRY ROUTINE 
262 : CALL 
263 : JSR R4, PARENT ; THE. CALLING SEQ 
264 3 TABLE SPARAMETERS TABLE 
265 : 
266 
267 020032 PARENT: MOV R3,-(SP) SAVE R3 
268 020034 MOV (R4) ,R3 ;PARAMETER TABLE ADDRESS 
269 02) 020046 1$: MOV (R3)+,2$ ;ADDRESS OF PARAMETER NAME 
270 020042 - BEG :BR IF AT END OF TABLE 
271 020044 TYPE TYPE THE PARAMETER NAME 
272 020046 2$: WORD 0 ‘ADDRESS OF PARAMETER NAME TEXT 
273 020050 2 MOV (R3)+,R2 ;MAXIMUM PARAMETER VALUE 
276 0 5 e MOV (R3)+,R5 :ADDRESS OF PARAMETER 
275 020054 1 MOV (RS) ,=(SP) ‘CURRENT VALUE OF PARAMETER 
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TYPDS A har , THE CURRENT VALUE OF THE PARAMETER 
TYPE , SLASH : 
RDLIN READ THE KEYBOARD 
MOV (SP) ¢,f1 INPUT ASCII aerate ADDRESS 
JSR R5,CK.DIG > CHECK THE DIGIT(S 
1$ [CARRIAGE RETURN ONLY ENTERED 
7$ :PERIOD ONLY ENTERED 
4$ ~ g ILLEGAL INPUT 
3$ [TERMINATED WITH : CARRIAGE RETURN 
4$ 7 TERMINATED WITH A 
5$ S TERMINATED WITH A ‘'."* 
3$: MOV R2,(R5) SMOVE NEW VALUE TO PARAMETER LOCATION 
BR 1$ 2GET MORE PARAMETERS 
4$: TYPE ,BADENT 3 "BAD ENTRY 
SUB #6 R35 : DECREMENT THE TABLE POINTER 
BR 1$ TRY AGAIN 
5$: MOV R2,(R5) SNEW_ VALUE 
BR 7$ sExIT 
i6$: MOV ATABLE ,R5 RELOAD THE PARAMETER TABLE ADDRESS 
6$: MOV (R4) RS RELOAD THE PARAMETER TABLE ADDRESS 
BR 1$ TRY AGAIN 
7$: MOV (SP) +,R3 ZRESTORE R3 
ADD A2,.RG  ;ADJUST THE RETURN ADDRESS 
RTS RS ZRETURN FROM THE R4 


THIS ROUTINE LOADS THE BAD SECTOR INTO "USTAB’ TABLE 
> CALL 

: JSR PC.RECORD 

ZALL REGISTER USED ARE DESTORIED 


RECCRD: MOV #USTAB+8.,R1 : TABLE ENTRY IN Ri 
$2 CMP 


#-1,(R1) AN OPENING IN THE TABLE 
BEQ 3$ 7BR IF IT IS 
CMP FMTDPB+12,(R1) CYLINDER — MATCHES 2 
BNE 23 :BR IF N 
CMPB FMTDPB+11,3<R1) ;TRK BE MATCHES ? 
BNE 2s BR IF 
CMPB FMTDPB+10,2(R1) care NNUMBER MATCHES ? 
BEQ 4$ BR TO EXIT. IF ae SPOT HAS RECORDED 
2$: ADD #4,R1 ZINCREMENT 4 BYTES 
CMP #USTAB+512..R1 SEND OF TABLE ? 
BHI 1$ [BR IF NOT 
BR 5$ THROW AWAY THE PACK 
3$: MOV FMTDPB+12,(R1) ;LOAD THE CYLINDER # 


MOVB FMTDPB+11,3(R1) ;LOAD THE TRK NUMBER 
MOVB a 2(R1) sLOAD THE SECTOR NUMBER 


4$: RTS SEALY 
S$: JMP. REICT6 : JUMP TO REJECT TOO MANY BAD SECTORS 
aes ROUTINE with SORT A BAD SECTGR TABLE IN ASCENDING ORDER 
«CALL 
, JSR R5,SORT2 
é TABLF +8. ZADDRESS GF TABLE 10 BE SORTED 
SORT2: MOV (R5),R1 ZTOP POINTER 
MOV . #125.,R2 STOTAL 126 ELEMENTS 
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POORT SUBROUTINES 
22? 020256 010103 MOV R1,R3 TLOCATE THE BOTTOM POINTER 
228 020260 062703 (00764 ADD #500. ,R3 1254-6) KX 2 
229 020264 022711 177777 CMP #=1,(R1) STHE TABLE IS EMPTY ? 
830 920270 001444 BEQ 4$ TQUICK EXIT 
227 020272 021161 000004 1$: CMP (R1),4(R1) Z COMPARE THE CYLINDER NUMBER 
232 020276 101013 BHI 2$ TSWITCH ELEMENTS 
$23 920 103426 BLO 2g ‘INCREMENT POINTER 
234 02030 126161 000003 000007 CMPA £(R1),7(R1) - COMPARE THE TRACK NUMBER 
335 020310 101006 BHI 2$ > SWITCH ELEMENTS 
336 020312 103421 BLO 3$ S INCREMENT POINTER 
337 020314 126161 000002 000006 (MPR —s« 2 (R71) ,6 (R17) =COMPARE THE SECTOR NUMBER 
338 020322 101001 BHI 2$ SSWITCH ELEMENTS 
329 020324 000414 BR S INCREMENT POINTER 
340 020326 011146 2$: MOV (R1),-(SP) “SAVE THE CYLINDER NUMBER 
341 020330 016146 000002 MOV 2(R1) ,~(SP) TSAVE THE TRK/SEC NUMBERS 
342 020334 016111 000004 MOV 4(R1),(R1) ;SWITCH THE N#4 BLOCK TO N BLOCK 
343 020340 016161 000006 000002 MOV 6(R1),2¢R1) iSWITCH THE N+6 BLOCK TO Ne2 BLOCK 
344 020346 012661 000006 MOV (SP)+,6(R1) sLOAD THE N+#6 BLOCK 
345 020352 012661 000004 MOV (SP) +,4(R1) ;LOAD THE N+4 BLOCK 
346 620356 062701 OC0004 7$: ADD #4,R1 ‘UPDATE THE TOP POINTER 
020362 020103 CMP R1.R3 SREACH THE BOTTOM ? 
020364 001342 BNE 1$ ‘BR IF NO 

9 020 005302 DEC Re DONE ENTIRE SORT ? 

0 020370 001404 BEQ. 4% “BR IF YES 

1 020372 162703 000004 SUB 84,23 [ADJUST THE BOTTOM POINTER 

2 020376 011501 MOV (R5),R1 ZRESET THE TOP POINTER 

3 020400 000734 BR 1 =DO NEXT SORT 

5 020402 062705 000002 4%: ADD - #2,R5 SADJUST RETURN ADDRESS 

5 RTS R5 SEXIT 
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CYLINDER 822. 


SECTORS 
: SECTORS 


SECTORS 19. 


H 6 
E dé 


5 
c 


SETUP BAD SECTOR BUFFER 
7 THIS ROUTINE SETS UP THE BUFFER TO RE={WRITE THE LAST TRACK OF 


0 


SECTORS 1 


SFIBSF: 


1$: 


es: 


MOV 


(BAD SECTOR FILE) 


*=(SP) 


#822. ,MINCYL 
LSTRK,MINTRK 
PC, SETHDR 
(SP)+,SEC30 
(SP) +,MAXSEC 
(SP) +, MINTRK 
(SP)+,MINCYL 
(SP)+,$TESIN 


AMF G16,R1 
#BUFP+4 ,R2 
#32.,R3 
(R1),(R2) 
2(R1),2¢R2) 
4(R2) 

6(R2) 

#516. ,R2 
R3 


2$ 


sBUFFER ADDRESS 
sTOTAL WORD COUNT 
SSET ALL LOCATIONS TO =1 


sDONE YET ? 
:BR IF NO 


7zPUSH STESTN ON STACK 
77PUSH MINCYL ON STACK 
7¢PUSH MINTRK ON STACK 
7sPUSH MAXSEC ON STACK 
2 a SEC30 ON STACK 


SET MAX 31 


SECTORS 


;ALWAYS IN 16 BIT MODE 
[LOAD LAST CYLINDER 


ZLAST TRACK 
:SET HEADER 
zzPOP STACK 
3zPOP STACK 
:zPOP STACK 
szPOP STACK 
22P0P STACK 


;LOAD FIRST 


FIELD IN THE BUFFER 
INTO SEC30 

INTO MAXSEC 

INTO MINTRK 

INTO MINCYL 

INTO $TESTN 


4 4 EVERY SECTOR 


;BUFFER_LOCATION + 
TOTAL 32 SECTORS 
sSTORE 1ST OCTAL WORD (MSB OF S/N) 


: STORE 


2ND OCTAL WORD (LSB OF S/N) 


STORE 3RD WORD ALL O'S 
STORE 4TH WORD ALL O'S 
sADVANCE TO NEXT SECTOR 
:DECREMENT ONE SECTOR COUNT 


;BR IF NO 


;LOAD TABLES INTO APPROPIATE SECTOFS 
:DUMMY PAIRS FOR TERMINTORS 


i; TABLE ADDRESS 

;BUFFER ADDRESS 

NUMBER OF SECTORS TO LOAD 
; TABLE ADDRESS 


;BUFFER ADDRESS 


NUMBER OF a TO LOAD 


#BUFP+4+516.,-(SP) 
#5,-(SP) iN 
#USTAB,~(SP) : TABLE ADDR 


HBUFP+4+<516.*10.> 27 (SP) 
315 IT 16 BIT FORMAT MODE ? 


SEC30 


BR IF 
#BUFP444+<516_*11.>, (SP) 


;BUFFER ADDRESS 


YES 
MFG 18 BIT BUFFER ADDRESS 
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ETF BAD SECTOR BUFFER 


50 020660 012746 000013 3s: MOV #11,,-(SP) ;NUMBER OF SECTORS TO LOAD 
52 020664 012701 004430 MOV #USSAV,RI ; TABLE ADDRESS IN R1 

53 020670 012702 061314 MOV MBUFP+4+<516.411.>,R2_  ;BUFFER ADDRESS IN R2 

54 020674 005737 001356 1ST SEC30 18 11 16.B1T FORMAT MODE ? 

55 020700 100402 BMI 4$ YES 

56 020702 012702 060319 MOV WBUFP+4+<516. #10. Pe ;BUFFER ADDRESS FOR 18 BIT MODE 
57 020706 012703 000013 4$: MOV #17. ,R3 SECTOR COUNT IN R3 

§8 020712 010105 MOV R1,R5 S TEMPORARY STORAGE 

59 020714 012706 000400 S$: MOV #256. ,R4 [WORD COUNT = DATA FIELD OF ONE SECTOR 
60 020720 012122 63: MOY (R1)+,(R2)+ sLOAD TABLE INTO SECTOR DATA FIELD 
61 020722 005304 DEC R4 TALL DONE ? 

62 020724 601375 BNE 6$ “BR IF NOT 

63 020726 010501 MOV R5,R1 {RELOAD THE TABLE ADDRESS 

64 020730 062702 001010 ADD #576. +4,R2 [SKIP ONE SECT 

65 020734 005303 DEC R3 : DECREMENT ONE OSECTOR COUNT 

66 020736 001366 BNE 5$ BR IF NOT DONE 

67 020740 012603 MOV (SP) +,R3 sNEXT NUMBER OF SECTORS TO LOAD 

68 020742 012602 MOV (SP) +,R2 sNEXT BUFFER ADDRESS 

69 620744 012601 MOV (SF) +-R1 "NEXT TABLE ADDRESS 

70 020746 010105 MoV R1.R5 [1S IT DUMMY TERMINTOR ? 

71 020750 001361 BNE 5$ BR IF NO 

72 020752 000207 RTS PC ZEXIT 

74 ZTHIS ROUTINE WILL SET OR RESET BIT15 AND BIT14° OF THE FIRST HEADER 
75 “WORD. IF THE HEADER IS FLAGGED AS A 'MFG’ BAD SECTOR, BITIS(MF BIT> 
76 sWILL BE RESET(O) AND BIT14(UF BIT) WILL BE SET(1). IF THE HEADER IS 
77? :BEING FLAGGED AS A ‘USR' BAD SECTOR, BIT15(MF BIT) WILL BE SET(1) 
78 AND BITI4(UF BIT) WILL BE RESET(O). 

7 7 CALL 

80 : JSR PC RESET 

! 

82 020754 013737 005552 046224 RESET: MOV FMTDPB+12,RBUF =! CYLI cR ADDRESS, 

83 020762 001006 BNE 1$ RIF NT: CYL 0 

84 020764 122737 000001 005551 CMPB T FMTDPB+11 18 TH’. CYL 0, TRK 0 OR 1? 

85 020772 103402 BLO 1$ BR IF NO 

86 920774 000137 016442 JMP REJCT2 ZOTHERWISE, ILLEGAL BAD SECTORS 

88 021000 113737 005551 046227 18: MOVB —s FMTDPB+11, RBUF +3 TRACK ADDRESS 

89 021 113737 001344 046226 MOVB _- BADSEC,RBUF+2  ; SECTOR ADDRESS 

90 021014 053737 001410 046224 BIS HDRBI T . RBUF ISET MFG BIT, RESET USR BIT 

91 021022 113737 001222 005630 MOVB  DRIVE,FMTWRT = SETUP THE DPB FOR OPERATION 

92 021030 012737 177776 005634 MOV #-2,FMTWRT+4 — :WORD COUNT =2 

93 021036 112737 000163 005632 MOVB AWRTHD,FMTWRT+2 ;WRITE HEAD AND DATA COMMAND 

02104 012737 046224 005636 MOV #RBUF ,FMTWRT+6 ;BUFFER ADDRESS 

95 021052 113737 001344 005640 MOVB —- BADSEC, FMTWRT+10 SECTOR ADDRESS 

96 021060 113737 005551 005641 MOVB ——« FMTDPB+11,FMTWRT+11 STRACK ADDRESS 

97 021 013737 005552 005642 MOV FMTDPB+12,FMTWRT+12 ie hte aan —* 

98 021074 052737 010000 046224 BIS #FMT , RBUF :ASSUME 16 BIT MO 

99 021102 023727 005552 001466 CMP FMTDPB+12,4822. :1S IT LAST CYLINDER ? 

100 021110 001004 BNE 2$ BR IF NO 
101 021112 123737 005551 001324 CMF3 FMTDPB+11,LSTRK ;I1S IT LAST TRACK (BSF) ? 

102 021120 001406 BEQ 3$ BR IF YES 

108 021122 005737 001356 2$: TST SEC30 SIN 16 BIT MODE ? 

104 021126 100403 BMI 3g BR IF IT IS 

105 021130 042737 010000 046224 BIC #F MT, RBUF “RESET THE FMT BIT 
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FE 
3 004037 031214 3$: JSR RO,RMOS CALL THE DRIVER 
42 005630 FMTWRT DPB ADDRESS 
44 000774 8R 3$ 7BR IF QUEUE FAILS 
46 005737 005646 4%: TST FMTWRT+16 =DONE ? 
52 001775 68EQ 4% ;BR IF NOT 
54 000260 NOP ; 1GNORE ANY ERRORS 
56 RTS PC sEXIT 
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INSERT A BAD SECTOR ADDRESS INTO ONE OF THE MFG16, MFG18, USTAB AND 


Her TABLES 


= JSR RS. INSERT 

: TABLE +8. 

INSERT: MOV R4,-(SP) 
MOV #126. .- (SP) 
MOV (R5) RS 

1$: CMP #-1, (RSG) 
BEQ 3$ 
CMP DS.CYL,(R4) 
BNE $ 
CMPB DS.TRK,3(R4) 
BNE ef 
CMPB BADSEC,2(R4) 
BEQ 4$ 

2s: DEC (SP) 
BEO 4$ 
ADD #4,R4 
BR 1$ 

5$: MOV DS.CYL, (R4) 


MOVB DS.TRK,3(R4) 
MOVB BADSEC ,2(R4) 
4$: ADD #2,SP 


MOV (SP) +,R4 
ADD #2.R5 
RTS R5 


SAVE THE RS 
ENTRIES OF THE TABLE 
; TABLE ADDRESS + 8 BYTES 


‘OR ee ENTRY ? 

CHECK IF THE BAD SECTOR HAS RECORDED 
BR IF NOT 

CYL og ~~ MATCH ? 

BR IF 

mo "RK " AND SEC MATCH ? 

:BR 0 


IF § 
: DECREMENT ny’ ENTRY COUNT 
¢BR IF EXHAUST 


sLOCATE THE NEXT ENTRY 
;BR BACK 


[BR 
:LOAD INTO TABLE 


:LOAD THE TRACK NUMBER 
;LOAD THE SECTOR NUMBER 
;CLEAR UP THE STACK 
RESTORE R4 

sASJUST THE RETURN ADDRESS 


SEXIT 


SEQ 0075 


fR™ 
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BO RMOS/4/2 FORMATTER MACRO 
TILITY FUNCTION ROUTINES 
-SBTITL UTILITY FUNCTION ROUTINES 

5 sROUTINE TO ENTER ‘*MFG* DEFINED BAD SECTORS IN THE 16 BIT TABLE AND 

6 sTHE 18 BIT TABLE 

2 

6 021272 005737 001320 fFUNCT1: TST MODE sIS IT "FORMAT® MODE ? 

7 021276 001403 BEQ 1$ 7BR IF YES 

8 021300 104401 042255 TYPE »NOUPDT sTYPE "NO UPDATE OF FILE IN VERIFY MODE’ 
ok 021304 000207 RTS 
11 021306 104401 040564 1$: TYPE MESGS :TYPE ‘ENTER MFG 16 BIT BAD SECTOR ADDRESS' 
12 021312 104401 001205 TYPE CRLF 3 CR=LF 

13 021316 0045*7 022702 es: JSR R5,MANTER sENTER THE VALUE FROM THE KEYBOARD 
{3 021322 0057v2 TABLE 
16 021324 005°37 001362 TST pS.cyi sWAS A VALUE ENTERED ? 
17 021330 100404 BM] 3$ ‘BR IF NO 
18 021332 004537 021160 JSR R5, INSERT 7 INSERT BAD SECTOR INTO THE °MFG16" TABLE 
19 021336 001424 MFG16+8. 
20 €21340 000766 BR 2$ rNEXT ENTRY 
21 021342 004537 020250 3$: JSR R5,SORT2 ;SORT THE TABLE WHEN DONE WITH INPUTS 
$¢ 021346 001424 MFG16+8. 
24 021350 104401 040642 TYPE -MESG6 sTYPE "ENTER MFG 18 BIT BAD SECTOR ADDRESS’ 
25 021354 104401 001205 TYPE -SCRLF 3 CR-LF 
26 021360 004537 022702 4$: JSR R5,MANTER ; INPUT VALUES FROM THE KEYBOARD 
i 021364 005720 TABLE 
29 021366 005737 0601362 TST OS. CVE sUPDATED VALUES ? 
30 021372 100404 BMI 5$ ;BR IF NOT 
31 021374 004537 021160 JSR R5, INSERT ; INSERT BAD SECTOR INTO THE °MFG18" TABLE 
32 021400 002430 MF G18+8. 
33 021402 000766 BR NEXT ENTRY 

021404 0604537 020250 5$: JSR R5,SORT2 ;SORT THE TABLE WHEN DONE WITH INPUTS 

35 021410 002430 MFG18+8. 
e 021412 000207 RTS PC sEXIT 
38 sROUTINE TO ENTER "USR' DEFINED BAD SECTORS IN THE 16 BIT TABLE OR 
pe ;THE 18 BIT TABLE 
41 021414 005737 001320 FUNCT2: TST MODE :1S IT "FORMAT' MOLE ? 
42 6214620 001403 BEQ 1$ :BR IF YES 
43 021422 104401 042255 TYPE ~NOUPDT : TYPE ‘NO UPDATE OF FILE IN VERIFY MODE" 
te 021426 000207 RTS PC 
46 021430 012737 003434 021546 1$: MOV #USTAB+8. 4% :SET UP 'USR" TABLES FOR 16 BIT MODE 
47 021436 012737 603434 021556 MOV AUSTAB+8. ,6$ 
48 021444 012737 004449 021610 MOV HUSSAV+8. , 8% 
49 021452 012737 004440 921620 MOV HUSSAV+8., 108 
50 021460 005737 001356 TST SEC 30 :IS IT 18 BIT MODE ? 
51 021464 100414 BMI 2$ ;BR IS NO 
52 021466 012737 003434 021610 MOV #USTAB+8. , 8% :SET UP 'USR' TABLES FOR 18 BIT MODE 

53 021474 012737 003434 021620 MOV AUSTAB+8, , 108 
54 021502 012737 004440 021546 Moy MUSSAV+8. 4% 
3 021510 012737 004440 021556 MOV HUSSAV+8. ,6$ 
> 
57 021576 104401 040720 2$: TYPE Mi SG7 ;TYPE "ENTER USR 16 8IT BAD SECTOR ADDRESS 
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UTILITY FUNCTION ROUTINES SEG 007/ 

58 021522 104401 001205 TYPE -$CR sCRoLF 

59 OS! 268 006557 C2270¢ 3$: JSR R5 CANTER sENTER BAD SECTOR FROM THE KEYBOARD 

ri 021532 005702 TABLE 2 

62 921534 005737 001362 TST DS.CYL UPDATED INPUT VALUE ? 

63 021540 100404 BMI 5$ BR IF NO 

64 921542 006537 021160 JSR R5, INSERT INSERT THE ay SECTOR INTO TABLE 

65 021546 000000 4%: -WORD C STABLE ADDRESS 

66 021550 000766 BR 3$ ZNEXT ENTRY 

67 021552 004537 020250 5$: JSR R5,SORT2 ;SORT THE ‘USR* 16 BIT TABLE 

ye 021556 000000 6$: «WORD 0 7 TABLE ADDRESS 

° 

70 021560 104401 040776 TYPE -MESG8 i TYPE "ENTER USR 18 BIT BAD SECTOR ADDRESS" 
71 021564 104401 001205 TYPE -$CRLF CReL 

72 021570 004537 022702 7$: JSR R5,MANTER ‘ENTER BAD SECTOR FORM KEYBOARD 

y 021574 005720 TABLE3 

75 021576 005737 001362 TS? DS.CYL UPDATED INPUT VALUE ? 

76 021602 100404 BMI 9$ :BR_IF NOT 

77 021604 004537 021160 JSR R5, INSERT + INSERT THE BAD SECTOR INTO TABLE 

78 021610 000000 8$: «WORD 0O 

79 021612 000766 BR 7$ “BR TO ENTER NEXT SECTOR 

80 021614 004537 020250 9$: JSR R5,SORT2 ;SORT THE TABLE 

81 021620 000000 10$: «WORD 0O ; TABLE ADDRESS 

ee 021622 000207 RTS PC sEXIT FORM THE TABCAL CALLING 

84 THIS ROUTINE WILL TYPE THE CONTENTS OF -THE 'MFG' BAD SECTOR FILES 

= FOR 16 BIT MODE AND 18 Bil MODE 

87 021624 104401 001205 FUNCT3: TYPE . $CRLF 3 CReLF 

88 021630 004737 022622 JSR PC, TYPACK ‘TYPE PACK SERIAL NUMBER 

89 021634 1044071 001205 TYPE .$CRLF ZTCRSUF 

90 021640 010146 MOV R1,-(SP) SAVE R1 

91 021642 012701 001424 MOV #MFG16+8. ,R1 ZADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE 
92 021646 104401 041054 TYPE »MESG9 :TYPE "CONTENTS OF 16 BIT MFG BAD SECTOR FILE" 
4 021652 004737 022512 JSR PC, TYLIST TYPE BAD SECTOR LIST IN DECIMAL 

95 021656 104401 041140 TYPE -MESG10 TYPE "CONTENTS OF 18 SIT MFG BAD SECTOR FILE’ 
96 021662 012701 002430 MOV AMF G18+8..R1 ADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE 
97 021666 004737 022512 JSR PC, TYLIST :TYPE BAD SECTOR LIST IN DECIMAL 

98 021672 012601 MOV (SP)+,R1 RESTORE THE R1 

Be C21674 000207 RTS PC EXIT FROM THE CALLING OF TABCAL 
101 THIS ROUTINE WILL TYPE THE CONTENTS OF THE ‘USR' BAD SECTOR FILES 
i FOR 16 BIT MODE AND 18 BIT MODE 
104 021676 104401 001205 FUNCT4: TYPE -$CRLF sCReLF 
105 021702 004737 022622 JSR PC, TYPACK ‘TYPE PACK SERIAL NUMBER 

106 0217 104401 001205 TYPE -$CRLF CRLF 

107 021712 010146 MOV Wi ,~(SP) SAVE R1 

108 021714 010246 MOV R2,-(SP) TSAVE R2 

109 021716 012701 003434 MOV AMUSTAB+8. .R1 SET UP 'USR' TABLES FOR 16 BIT MODE 

110 021722 012702 004440 MOV MUSSAV+8. ,R2 

111 021726 005737 001356 TST SEC30 iS IT 16 BIT MODE ? 

112 021732 100404 BMI 1$ R IF YES 

113 021734 612702 003434 MOV AMUSTABt8. .R2 SET UP ‘USR' TABLES FOR 18 BIT MODE 

114 021740 012701 004440 MoV MUSSAV+R. RI : 
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N 6 
MACRO V04.00 4-APR-81 18:39:56 PAGE 24-2 


T$: TYPE -MESG11 sTYPE ‘CONTENTS OF 16 BIT USR BAD SECTOR FILE' 
JSR PC TYUIS! TYPE BAD SECTOR LIST IN DECIMAL 
TYPE -MESG12 TYPE ‘CONTENTS OF 18 BIT USR BAD SECTOR FILE’ 
MOV R2,R1 GET ADDRESS TO R1 
JSR PC,TYLIST ‘et one SECTOR LIST IN DECIMAL 
MOV (SP)+,R2 TRESTORE R2 
MOV (SP)+,R1 PRESTO ORE R1 
RTS PC ZEXIT FROM THE CALLING OF TABCAL 


7 THIS ROUTINE IS USED TO INITIALI 


ZE THE 'MFG' BAD SECTOR FILE (16 AND 18 BIT) 


FUNCTS: TST MODE 1S IT 'FORMAT' MODE ? 
BEQ 1$ RIF YES 
TYPE -NOINIT TYPE "NO INITIALIZATION IN VERIFY MODE’ 
RTS ad 
1$ TYPE INI TMF TYPE "INITIALIZING MFG BAD SECTOR FILES’ 
MOV R1,~(SP) SAVE R1 
MOV R2,~(SP) zSAVE R2 
CLR MFG16+4 CLEAR 3RD WORD (ALL 0'S) 
CLR MFG16+6. TCLEAR 4TH WORD (ALL 0°S) 
MOV AMF G16+8.,R1 sADDRESS OF FIRST BAD SECTOR ENTRY 
MOV #252., sNUMBER OF WORDS LEFT 
2$: MOV #=1,(R1)+ RESET -REST OF FILE TO ~1 
DEC R2 ;DONE YET ? 
BNE 2$ 7BR IF NO 
CLR MFG18+4. CLEAR 3RD WORD (ALL 0°S) 
CLR MFG18+6. :CLEAR 4TH WORD (ALL 0°S) 
MOV AMF G18+8. ,R1 sADDRESS OF FIRST BAD SECTOR ENTRY 
MOV #252. ,R2 NUMBER OF WORDS LEFT 
3$: MOV A-1,(R1)+ SRESET: REST OF FILE TO -1 
DEC R2 : DONE YET"? 
BNE 3$ BR IF NO 
MOV (SP) +,R2 SRESTORE R2 
MOV (SP) +,R1 RESTORE R1 
TYPE -MESG14 :TYPE "DONE !* 
RTS PC sEXIT FROM THE TABCAL CALLING 


THIS ROUTINE IS USED TO INITIALIZE THE 


*"USR’ BAD SECTOR FILE (16 AND 18 BIT) 


FUNCT6: TST MODE 31S IT "FORMAT" MODE ? 
BEQ 1$ iBR. IF. YES 
TYPE -NOINIT TYPE "NO INITIALIZATION IN VERIFY MODE" 
RTS PC 
1$: TYPE -INITUS TYPE "INITIALIZING USR BAD SECTOR FILES* 
MOV R1,-(SP) SAVE R1 
MOV R2,-(SP) iSAVE R2 
CLR USTAB+4. CLEAR 3RD WORD (ALL 0'S) 
CLR USTAB+6. SCLEAR 4TH WORD (ALL 0'S) 
MOV MUSTAB+8.,R1 ADDRESS OF FIRST BAD SECTOR ENTRY 
MOV #252.,R2 1° NUMBER OF WORDS LEFT 
2$: MOV #-1,(R1)+ RESET REST OF FILE TO =1 
DEC R2 ;DONE YET ? 
BNE 2$ :BR IF NO 


O7# 


—_— - ——-— 


“a4 
4 


a 

a 

4 
~@ 
” Pt 

s 

oe 

7. 


er 
<« 


a) 


tt ee ee ee as 
@° 00 Q) c20D YNNWNS 
ARAM OSORNO 
noronrenar 


mManrononone 


oooo 
rrnrnrnr 


B8 022230 


ee we 9 or 
OONAWVE WI O 

Oo 

iat) 

Uw) 

Ww 

w 

Oo 


VVSSTSSSVAVS 


'™ 
_— 


76 
177777 
041502 


041374 
041450 


000037 
023172 


037174 
001205 


R 


at) 

wo 
32 
mW 


0 


001362 


MACRO V04.00 4-APR-8) 


8 7 
18:39:56 PAGE 246-3 ‘ 


CLR USSAV+4, CLEAR 3RD WORD tat 2 
CLR USSAV*+6. sCLEAR 4TH WORD (ALL O°S 
MOV MUSSAV+8. .R1 ZADDRE SS OF FIRST “sap Se CTOR ENTRY 
MOV #252. ,R2 R OF WORDS LEFT 
3$: MOV #-1,(R1)+ TRESET A OF FILE TO = 
DEC R2 sDONE ' 
BNE 3$ BR IF NO 
MOV (SP)+,R2 RESTORE R2 
MOV (S?)+,R1 sRESTORE R1 
TYPE 2MESG14 TYPE "DONE !° 
RTS PC ZEXIT FORM THE TABCAL CALLING 


; THIS ROUTINE IS USED TO PRINT A SECTOR r THE LAST TRACK (BAD SECTOR FILE) 


TCYL=822., (RMOS-TRK=18. OR RMO2/3-TRK=4) 
FUNCT7: TYPE -MESG13 sTYPE "PRINT A SECTOR OF ae _TRACK (OCTAL)* 
1$: TYPE 2MSG13A TYPE "ENTER SECTOR (DECIMAL) 
RDLIN ZREAD THE SECTOR NUMBER 
MOV (SP)+,R1 zsADDRESS OF READIN BUFFER 
MOV #31. ze ;UPPER LIMIT OF INPUT 
JSR R5,(K.DIG CHECK THE DIGIT(S) 
6$ [CARRIAGE RETURN ONLY ENTERED 
5$ sPERIOD ONLY ENTERED 
5$ ILLEGAL INPUT 
2s TERMINATED WITH : CARRIAGE RETURN 
5$ TERMINATED WITH A 
5$ [TERMINATED WITH A '’."' 
2$: ASL R2 [FOUND THE WORD INDEX 
MOV ADRTBL (R2) ,R1 ADDRESS OF THE BUFFER 
MOV #258. ,R2 zWC FOR WHOLE SECTOR INCLUDING HEADER 
3$: TYPE -$CRLF 7 CR=LF 
MOV #8. ,R5 78 WORDS ON A LINE 
4$: MOV (R1)+,-(SP) CONTENTS oor THE BUFFER 
TYPOC sTYPE OCTAL WORD 
TYPE -BLNKS2 STYPE 2 SPACES 
DEC Re sDECREMENT WORD CTR 
BEQ 6$ ;BR IF FINISH 
DEC R5 START ANOTHER LINE ? 
4$ :BR IF NOT 
BR :BR IF SO 
5$: TYPE -BADENT TYPE BAD ENTRY 
BR 1$ TRY AGAIN 
6$: TYPE ,SCRLF 7 CRoLF 
RTS sEXIT FROM TABCAL CALLING 


ROUTINE TO ENTER "MFG* DEFINED BAD SECTORS IN THE 16 BIT TABLE AND 
THE 18 BIT TABLE. THE SECTOR ADDRESS IS ENTERED AS A BYTE LOCATION 
FROM INDEX ON THE DISK 


FUNCT8: TYPE -MESG15 TYPE "ENTER MFG BAD SECTOR ADRS (DECIMAL)* 
1$: JSR R5,MANTER ENTER THE VALUE FROM KEYBOARD 

TABLES 

TST DS.CYL WAS a UPDATED ? 

BMI 6$ BR IF 

MOV R4,-(SP) 7 SAVE < 
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006264 


006364 


2$: 


3$: 


43: 


5$: 


6$: 


eae aila ‘$ 
gePsec. -BYTE16(RG) 


(R4)+ 
2$ 


RS 
R4 ,BADSEC 
R5, INSERT 


(sP)+ BADSEC 
BADSEC BYTE 18(R4) 

5$ ;BR IF 
:TRY NEXT SECTOR IF NOT FOUND 


#2,R4 
4$ 


RS 
R4,BADSEC 
R5,INSER 


"(SP)+,R4 
$ 


5 
R5,SORT2 


“RS, SORT2 


PC 


SAVE “BADSEC' FOR 18 BIT MODE”” 


E INDEX STARTS FROM 0 
ar 16 BIT LOCATION FOUND ? 


ZTRY NEXT SECTOR 
LOOPING 


[SECTOR ADDRESS 
SAVE 16 BIT SECTOR ADDRESS 
z INSERT BAD SECTOR INTO 'MFG16" TABLE 


+GET LOCATION OF SECTOR FOR 18 BIT MODE 
TABLE INDEX STARTS FROM 0 
“bs 18 BIT LOCATION FOUND ? 


[LOOPIN BACK 


SSECTOR ADDRESS 

SAVE 18 BIT SECTOR ADDRESS 

INSERT BAD SECTOR INTO ‘MFG18" TABLE 
RESTORE R4 

sNEXT ENTRY 

:SORT 'MFG16" TABLE 

;SORT 'MFG18° TABLE 


ZRETURN 


ee ee ee ee ee 
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ZTHIS ROUTINE IS USED TO iY¥PE THE BAD SECTOR FILE ENTRY IN DECIMAL. 
UPON RETURN, Rl WILL BE POINTING TO THE NEXT BAD SECTOR (CYLINDER) 
SCALL 
: MOV #NUMADR R17 ZADDRESS OF FIRST TABLE ENTRY 
JSR PC, TYLIST SCALL TYPE LIST ROUTINE 


ZTHE LIST WILL BE TYPED IN THE FOLLOWING FORMAT: 
: CONTENTS OF ‘FILENAME* THE BAD SECTOR FILE (DECIMAL) 


CYL, TRK,SEC 
TYLIST: MOV R1,-(SP) :SAVE ADDRESS OF FIRST TA&BLE ENTRY 
1$: TYPE »$CRLF 7 CR=LF 
TST (R1) 71S IT TERMINATOR 7 
BMI 2$ sR IF YES 
MOV (R1) ,=(SP) PUT CYLINDER NUMBER ON STACK 
JSR PC, $SB2D : CONVERT IT TO DECIMAL 
JSR PC, $SUPRL TYPE DECIMAL NUMBER, LEFT JUSTIFY 
TYPE »$COMMA st¥re * 
CLRB =(SP) sCLEAR STACK LOCATION 
MOVB 3(R1), (SP) PUT TRACK NUMBER ON STACK 
JSR PC, $SB2D sCONVERT IT TO DECIMAL 
JSR PC,$SUPRL TYPE DECIMAL NUMBER, LEFT JUSTIFY 
TYPE -$COMMA lige, ee 
CLRB =(SP) :CLEAR STACK LOCATION 
MOVB 2(R1) , (SP) PUT SECTOR NUMBER ON STACK 
JSR PC, $SB2D :CONVERT IT TO DECIMAL 
JSR PC, $SUPRL TYPE DECIMAL NUMBER, LEFT JUSTIFY 
ADD #4 ,R1 ;ADJUST R1 TO NEXT BAD SECTOR ENTRY 
BR 1$ NEXT ENTRY 
2$: CMP R1,(SP)+ ;WERE THERE ANY ENTRIES ? 
BNE 3$ :BR IF YES 
TYPE -NOENTR TYPE "* NO ENTRIES ** 
3$: RTS PC RETURN 


Te 
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ce SERIAL NUMBER IN OCTAL 


-SBTTL TYPE PACK SERIAL NUMBER IN OCTAL 


c 

3 cere TO TYPE THE PACK SERIAL NUMBER IN OCTAL 

4 a : 

2 : pa JSR PC, TYPACK ;CALL ROUTINE 

4 : JSR PC, TYPCK CALL ROUTINE (WITH NO HEADER MESSAGE) 
9 022622 104401 037473 TYPACK: TYPE »PACKSN ;TYPE "PACK S/N:' 

10 022626 013746 003426 TYPCK: MOV USTAB+2,-(SP)  ;GET HI] NUMBER (MSA) 

11 022632 001414 BEQ 1$ 7BR IF ZERO 

12 022634 004737 02733C JSR PC,$SB20 s CONVERT TO OCTAL NUMBER 

13 022640 004737 026670 JSR PC ,$SUPRL ZAND TYPE IT LEFT JUSTIFIED 
14 022644 013746 003424 MOV USTAB,-(SP) sGET LOW NUMBER (LSB) 

15 022650 004737 027330 JSR PC, $SB20 sCONVERT TO OCTAL NUMBER 

16 022654 004537 026770 JSR R5,FILLZ TYPE WITH PRECEEDING ZEROS 
17 022660 000005 .WORD 5 35 DIGITS 

18 022662 000406 : BR $ 
19 022664 013746 003424 1$: MOV USTAB,=-(SP) sGET LOW NUMBER (LSB) 
20 622670 004737 027330 JSR PC,$SB20 CONVERT TO OCTAL NUMBER 
21 922674 004737 02¢670 JSR PC,$SUPRL AND TYPE IT LEFT JUSTIFIED 
22 022700 000207 2s: RTS PC RETURN 


2RM BO) 
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006002 


“a 


.SBTTIL 


4$: 


SS: 


6$: 


7$: 
8$: 


ENTER BAD SECTOR ROUTINE 
ts pie TO ENTER BAD SECTOR INFORMATION MANUALLY 
it: 


R5,MANTER 


R4,-(SP) 
(R5),R4 
(R4)+,2% 
3$ 

0 

M=1 ,a2(R4) 
(SP)+,R1 


(R4)+,R2 
R5,CK.DIG 


R2,a(R4)+ 


(R4)+,R2 
R5,CK.DIG 


R2,a(R4)+ 


(R4)+,R2 
R5,CK.DIG 


R2,a(R4)+ 
8$ 


-BADENT 
1$ 


(R5) + 
(SP) +,R4 
R5 


CALL ROUTINE 
ADDRESS OF TABLE 


37PUSH R4 ON STACK 


GET TABLE POINTER 
GET ADDRESS OF MESSAGE 
7BR IF NO MESSAGE 


ADDRESS OF MESSAGE GOES HERE 
INITIALIZE VALUE 


sADDRESS OF FIRST ASCIZ CHARACTER 
;UPPER LIMIT OF INPUT 

CHECK THE DIGIT(S) 
: CARRIAGE RETURN ONLY ENTERED 
sPERIOD ONLY ENTERED 

ILLEGAL INPUT 

TERMINATED WITH : CARRIAGE RETURN 
TERMINATED WITH A 

; TERMINATED WITH A ‘'."* 

sCYLINDER ADDRESS 


UPPER LIMIT OF INPUT 
CHECK THE DIGIT(S) 
CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 
TERMINATED WITH A Si Rae RETURN 
; TERMINATED WITH A ° 
; TERMINATED WITH A‘ 
STRACK ADDRESS 


;UPPER LIMIT OF INPUT 
sCHECK THE DIGIT(S) 

CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 

7 ILLEGAL INPUT 

s TERMINATED WITH A CARRIAGE RETURN 
S TERMINATED WITH A‘ 

S TERMINATED WITH A ‘*."* 

ae OR BYTE ADDRESS 


sMESSAGE BAD ENTRY 

sENTER SECTOR ADDRESS AGAIN 
ZADJUST RETURN ADDRESS 
‘Pry STACK INTO R46 

EX 
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7 THIS ROUTINE IS USED TO CHECK IF AN 
sASCIi CHARACTER IS A DIGIT BETWEEN O AND 7. 


3 2 CALL 
4 : MOV —s- #ADR,R1 ADDRESS OF ASCII CHARACTER 
; ; JSR RS, CRK.OCT CHECK THE CHARACTER 
6 ; RETURN] :CHARACTER 1S NOT BETWEEN 0-7 
? : RE TURN2 CHARACTER IS IN R2 AS A 
g :  SOCTAL DIGIT 
19 023044 121127 000060 (K.OCT: (MPB (Ri) .#"0 ;LESS THAN ZERO? 
17 023050 1063407 BLO 8O«18 
12 023052 121127 000067 (MPR (R1) "7 : GREATER THAN SEVEN? 
13 023056 101004 BHI i$ YES 
14 023060 111102 MOVB —- (R1) ,R2 ;GET THE CHARACTER 
15 023062 042702 177770 BIC  -#*C7-R2 STRIP AWAY THE ASCII 
16 023066 005725 TST (R5)+ ZADJUST FOR RETURN 
17 023070 09020 1$: RTS —RS = RETURN 
19 THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
20 :AND DETERMINE IF 11 1S A DIGIT BETWEEN 0 AND 9. 
22 : MOV -—- MADR, R1 ;ADDRESS OF ASCII CHARACTER 
; JSR ___-R5, CK. DEC CHECK THE CHARACTER 
: RETURN] sNOT BETWEEN 0 AND 9 
: RE TURN2 SBETWEEN 0 AND 9 
} R2 = DIGIT 
28 023072 121127 000060 CK.DEC: CMPB — (R1) , #0 :LESS THAN ZERO? 
29 023076 103407 BLO Os«d1S YES 
30 023100 121127 000071 (MPR (R1) #9 GREATER THAN NINE? 
31 023104 101004 BHI 1$ ZYES 
023106 111102 MOVB —- (R1) ,R2 GET THE CHARACTER 
3 023110 042702 000060 BIC #"0,R2 _ ESTRIP AWAY THE ASCII 
34 023114 005725 TST (R55 + ADJUST FOR RETURN 
35 023116 000205 1$: RTS RS :RE TURN 
THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
: DETERMINE WHAT IT IS. 
: MOV —s#ADR, RT ADDRESS OF ASCII CHARACTER 
; JSR RS, cK CHR CHECK CHARACTER 
Ps RETURN ADR 7; UNKNOWN CHARACTER 
: RETURN ADR? CARRIAGE RETURN * (R1)=ADR¢1 
: RETURN ADR3 COMMA * (R1)=ADR+1 
: RETURN ADR4 PERIOD * (R1)=ADR+1 
: RETURN ADRS DIGIT BETWEEN 0 AND 7. 
: RETURN ADR6 :DIGIT BETWEEN 8 AND 9. 
: R2 = DIGIT * (R1)=ADR+1 
50 023120 105711 CK.CHR: TSTB § (R1) ; CARRIAGE RETURN''? 
023122 001417 BEQ 3S ZYES 
52 023124 121127 000054 (MPR (R1) .#", ‘COMMA’? 
§3 023130 001413 BEQ ss $ TES 
54 023132 121127 000056 (MPR (RT) : PERIOD’? 
55 023136 001407 BEQs«d1S i¥ES. 
56 023140 004537 023072 JSR R5 CK DEC : DIGIT’? 
57 023164 000410 BR 4g :NO 
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58 023146 004537 023044 JSR R5,C(K.OCT sOCTAL ? 
59 023152 005725 TST (R5)+ sDIGIT BETWEEN 8-9 
60 023154 005725 TST (R5)+ :DIGIT BETWEEN 0-7 
61 023156 005725 1$: TST (R5)+ PERIOD 
62 923160 005725 2%: TST (R5)+ > COMMA 
635 023162 005725 . 38: TST (RS) + CARRIAGE RETURN 
64 923164 005201 INC R1 MOVE POINTER TO NEXT CHARACTER 
65 023166 011505 4$: MOV (R5) RS ' 3UNKNOWN CHARACTER 
ra 023170 000205 RTS RS ;RETURN 
68 7 THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
4 yale AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 
7 CALL 
71 : MOV #ADR,R1 ZADDRESS OF ASCIZ STRING 
72 5 MOV #NUM,R2 3MAX. MAGNITUDE OF INPUT NUMBER 
73 : JSR RS,CK.DIG CHECK DIGITS 
74 3 RETURN ADR1 7''CR'' ONLY ENTERED -= R2=0 
75 : RETURN ADR2 7''PERIOD'' ONLY ENTERED -- R2=0 
76 : RETURN ADR3 : ILLEGAL CHARACTER OR INPUT TOO LARGE == R2=? 
77 : RETURN ADR4 “TR R2 = NUMBER 
78 ; RETURN ADRS ="COMMA' -- R2 = NUMBER 
z ; RETURN ADR6é :''PERIOD'' -- R2 = NUMBER 
81 023172 010446 CK.DIG: MOV R4,-(SP) ZSAVE R4 
82 023174 010346 MOV R3,-(SP) SAVE R3 
83 023176 010246 MOV R2,-(SP) SAVE THE MAX. SIZE ON THE STACK 
84 023200 005002 CLR R2 START WITH O 
85 025202 0050035 CLR R3 
86 023204 005004 CLR R4 
87 023206 004537 023120 JSR R5.CK.CHR sCHECK ONE CHARACTER 
023212 023306 6$ Z ILLEGAL CHARACTER 
023214 023514 9$ CARRIAGE RETURN 
023216 023306 6$ ee, 
023220 023310 7$ Pha aa 
023222 023226 1$ iDIGIT 0-7 
0235224 023226 1$ iDIGIT 8-9 
88 023226 062705 000004 1$: ADD #4 RS STEP RETURN POINTER PAST "'CR'’ & 'PERIOD'’ RETURNS 
89 023232 006303 2$: ASL R INPUT NUMBER *2 
90 023234 010346 MOV R3,-(SP) SAVE *2 
91 023236 006503 ASL R3 Z 
92 023240 006303 ASL R3 2*8 
93 023242 062603 . ADD (SP)+,R3 3(*2)+(*8) = *10 
94 023244 060203 ADD R2,R3 UPDATE THE INPUT NUMBER 
95 023246 004537 023120 JSR RS,CK.CHR CHECK ONE CHARACTER 
023252 023312 8 ZILLEGAL CHARACTER 
023254 023276 5$ CARRIAGE RETURN 
023256 023274 4$ hi 
023260 023266 3$ Catia 
023262 023232 2$ DIGIT 0-7 
023264 023232 2$ DIGIT 8-9 
96 023266 105711 3$: TSTB (R1) DOES A ‘'CR’' FOLLOW THE 'PERIOD’’ 
97 0235270 001010 BNE 8$ BR IF NOT 
98 023272 005724 TST (R4)+ : INCREMENT THE RETURN 
99 023274 005724 4%: TST (R4)+ > INCREMENT THE RETURN 
100 023276 005724 5$: TST (R4) + 7 INCREMENT THE RETURN: ; 
101 023300 020316 CMP R3, (SP) CHECK THE MAGNITUDE OF THE NUMBER 
102 023302 003004 BGT 9$ BR IF ENTERED NUMBER TOO LARGE 


Oe ee et ee et 
QOSOoOooCO000 


AN 2S BRIKARY 
POM MONON NIM NA 


> 2a 
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OR tw 
000402 BR 8$ sBYPASS INCREMENT 
005725 6$: TST (R5)+ s INCREMENT RETURN PAST INVALID RETURN 
005725 7$: TST (R5)+ s INCREMENT RETURN 
060405 8$: ADD R4,R5 ;SETUP RETURN POINTER 
010302 9: MOV R3,R2 ENTERED VALUE 
005726 TST (SP) + 7CLEAN MAX. SIZE OFF OF STACK 
012603 MOV (SP) +,R3 RESTORE R3 
012604 MOV (SP) +,R4 " RESTORE R4 
011505 MOV (R5),R5 3GET RETURN ADDRESS 
000205 RTS R5 sRETURN 
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SEQ 0087 


CZRMLBO &MOS FORMATTER 
ERROR HANDLER & iNE 

-SBTTL ERROR HANDLER ROUTINE 

SF AAA ARAAERRARAAAAERAAERARARRERERREREARKEARAHEEERERRAERERE RARE AAS 

z*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

:*SAVE THE ERROR ITEM came” AND THE ADDRESS OF THE ERROR CALL 

:*AND GO TO TYPERR ON ERROR 

+ ® THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

S*SW15=1 HALT ON ERROR 

:*Sw13=1 INHIBIT ERROR TYPEOUTS 

2*SW10=1 BELL ON ERROR 

ars gl LOOP ON ERROR 

2*CALL 

re ERROR N 7;ERROR=EMT AND N=ERROR ITEM NUMBER 
023330 105037 023756 SERROR: CLRB IBSAVE ¢:CLEAR THE ITEM BYTE SAVE LOCATION 
023334 104407 CKSWR :3TEST FOR CHANGE IN SOFT-SwR 
023336 010137 001366 MOV R1,DDRIVE ;DRIVE ADDRESS IF DRIVE ERROR CALL 
023342 010337 001370 MOV R3,ATTN sATTENTION REGISTER CONTENTS 
023346 013737 005552 001362 MOV FMTDPB+12,DS.CYL ;CURRENT CYLINDER ADDRESS 
623354 113737 005551 001364 MOVB FMTDPB+11,DS.TRK ;REQUESTED TRACK oes 
023362 0.5737 005564 TS RM. REG+RMBA *NON~ZERO BUFFER ADDRESS ? 
023366 001406 BEQ 7$ BR IF NO BUFFER ADDRESS 
023370 013746 005564 MOV RM. REG+RMBA, ~ (SPS ;BUFFER ADDRESS 
023374 162716 000002 SUB #2, (SP) ;DECREMENT THE ADDRESS 
023400 013637 001140 MOV a(SP)+,$GDDAT ;GET THE BUFFER WORD WHICH DIDN'T COMPARE 
0234046 105237 001117 (8: INCB SERFLG ree THE ERROR FLAG 
023410 001775 BEQ — 7$ :DON'T LET THE FLAG GO TO ZERO 
023412 0613777 001116 155536 MOV $TSTNM,@DISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
023420 032777 002000 155526 BIT #B1T10,aSWR 7;BELL ON ERROR? 
023426 001402 BEQ 1$ NO = SKIP 
023430 104401 001200 TYPE , SBELL 3 2RING BELL 
023434 005237 001126 1$: INC SERTTL 72COUNT THE NUMBER OF ERRORS 
023440 011637 001132 MOV (SP) , SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
023444 162737 000002 001132 SUB #2, $ERRPC 
023452 117737 155454 001130 MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
023460 032777 001000 155466 BIT #BITO9,aSWR 7:SEE IF LOOP ON ERROR IS SET 
023466 001060 BNE 1904$ ; BRANCH AROUND ROUTINE IF SO 
023470 122737 000177 001130 CMPB #177, S1TEMB 7iSEE IF THIS IS THE POWER FAIL CALL 
023476 001454 BEQ 1004$ ;BRANCH AROUND ROUTINE IF IT IS 
023500 105737 023756 TSTB IBSAVE ::SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
023504 001047 BNE 1003$ 7 zBRANCH IF SO 
235 022737 177777 023754 CMP H#-1, CPSAVE :3 E be CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
023514 001445 BEQ 1004$ :BRANCH IF SO 
023516 013746 000004 MOV ERRVEC,~(SP) SAVE CCONTENTS OF ERROR VECTOR 
023522 012737 023540 000004 MOV #1000$,ERRVEC SETUP "TRAP' RETURN ADDRESS 
023530 013737 177766 023754 MOV 177766, CPSAVE 72MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
25536 10406 BR 1001$ 
023540 012737 177777 023754 1000$: MOV 4-1, CPSAVE :2SET CPU ERROR REGISTER TIMEOUT INDICATOR 
023546 012716 023554 Mov #10018, (SP) :;SETUP RETURN ADDRESS 
023552 000002 RT! 
023554 012637 000004 1001$: MOV (SP) +, ERRVEC :2RESTORE CONTENTS OF ERROR VECTOR 
023560 022737 177777 023754 1002$: CMP 4-1, CPSAVE ;7SEE IF CPSAVE HAS CPU ERR REG TIMECUT INDICATION 
023566 001420 BEQ 1004% ;zBRANCH IF SO 
023570 032737 000001 023754 BIT #B1T00,CPSAVE 32SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
023576 0014614 BEQ ; BRANCH IF OK 
023600 042737 000001 177766 BIC #B1T00,177766 ;;CLEAR THE BIT FOUND SET 


ZRM Bt 


FRROR HANDLER 


023606 


023756 


ROUT INE 


113737 
112737 
000402 


105037 
032777 


104407 


032777 
001402 
013716 
005737 
001402 
013716 


105737 


RMO5/3/2 FORMATTER 


001130 
600177 
023756 
020000 


023760 
001205 


000001 


001130 
027522 


023756 
155244 


001000 


001124 
001176 


001176 
023756 
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023756 
001130 


155316 


001230 
023672 


155230 


1003$: 
1004$: 


20$: 


218: 
22$: BR 
es: 
3$: 


4$: TST 


5$: 


CPSAVE: .WORD 
IBSAVE: .WORD 


SITEMB, IBSAVE 
#177 SI TEMB 
1004$ 

IBSAVE 
#B1T13,aSwR 
20$ 


PC,TYPERR 
»SCRLF 


oe 
$ITEMB,21$ 
PC, SATY4 

0 

0 

22$ 

IBSAVE 

3$ 


aSWR 
3$ 


#BI109,aSWR 
4$ 


$LPERR, (SP) 
SESCAPE 


5$ 

$SESCAPE, (SP) 
IBSAVE 

7$ 


0 
Q 


s3MAKE IBSAVE NON=ZERC FOR DUAL ERROR CALL 
3cSET SITEMB TO SPECIAL POWER FAIL POINTER 
+ zBRANCH OVER IBSAVE CLEARING 

3sCLEAR IBSAVE SO 2ND TIME THROUGH EXITS 


s2SKIP TYPEQUT IF SET 


" $99KIP TYPEOUTS 


72G0 TO USER ERROR ROUTINE 


3¢RUNNING IN APT MODE 

3sNO,SKIP APT ERROR REPORT 

3sSET ITEM NUMBER AS ERROR NUMBER 
7zREPORT FATAL ERROR TO APT 


;zAPT ERROR LOOP 

3iSEE IF IBSAVE IS LOADED 

:ZBRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 
;:HALT ON ERROR 

3iSKIP IF CONTINUE 

7ZHALT ON ERROR! 

3: TEST FOR CHANGE IN SOF T-SwR 


: LOOP ON ERROR SWITCH SET? 
t= FUDGE RETURN FOR LOOPING 
tICHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 


73SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
3¢BRANCH BACK TO CALL ORIGINAL ERROR 
7 RETURN 
szLOCATION TO SAVE CPU = RROR REG CONTENTS 
ZZLOCATION TO SAVE Ilem BYTE 


ZRMLBO RMO5/4/2 FORMATTER 
FRROR HANDLER ROUTINE 


MN -- 3S ee 
WR -OVOMNO SOOM NOD wr 
o oO : 
> 


Mmronr 


5? 
58 024160 


04412 
0 


Sn=8s5 


000402 
013146 


065105 


001130 
000177 


001214 
024234 


006460 
024044 
001205 


024062 
001205 


001205 


036621 


001205 
000002 
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3 THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE 


WHICH ERROR 1S TO SE REPORTED, IT THEN OBTAINS, 
AND REPORTS THE APPROPIATE INFORMATION 


; TABLE’* (SERRTB), 
: CONCERNING THE ERROR. 


TYPERR: SAVREG 
CLR RO 
MOVB $1TEMB,RO 
CMPB #177,R0 
BNE 1$ 
024374 MOV STESTN,PFTSTN 
MOV #PFECH,RO 
BR 3$ 
1$: MOV RO,R1 
DEC RO 
ASL RO 
ASL RO 
ASL RO 
2g: ADD ASERRTB,RO 
3$: MOV (RO) +,4$ 
BEQ 5$ 
TYPE -SCRLF 
TYPE 
4$: -WORD 0 
5$: MOV (RO) + ,6$ 
BEQ 7$ 
TYPE ~SCRLF 
TYPE 
6$: -WORD 0 
7$: MOV (RO) +,R1 
BEQ 17$ 
CLR 5 
MOV (RO) +,RO 
MOV (RO) +,R2 
BEQ 16$ 
COM 5 
TYPE $CRLF 
8$: MOVB (RO) +,R5 
MOVB (RO)+,R4 
9$: ROR R4 
BCS 10$ 
MOV. a(R1)+,-(SP) 
TYPOC 
BR 11$ 
10$: 
MOV @(R1)+,-(SP) 
TYPDS 
118: DEC R3 
BEQ 128 
TYPE ~BLNKS2 
BR 
12$: DEC R2 
BLE 17$ 
TYPE ~SCRLF 
TST 2(RO) 
BEQ 13$ 
COM R5 





FROM THE ‘ERROR 


SAVE RO-RS 
pS RO FOR ERROR NUMBER 
IR NUMBER 


IS SPECIAL POWER FAIL CALL 


7 ERRO 

SEE IF Hae _ CALI. 
SBRANCH IF 

GET TEST NUMBER 


[MOVE POWER FAIL ERROR CALL TABLE TO RO 


AND COPY IT INTO R1 
7FORM INDEX FOR ERROR TABLE 


FORM ADDRESS 

;GET ERROR MESSAGE (EM) POINTER 
BR IF THERE ISN'T ONE 
i''CARRIAGE RETURN =~ LINE FEED 


‘'EM'' POINTER GOES HERE 
sPICK UP DATA HEADER (DH) POINTER 


:BR_ IF NONE 
CARRIAGE RETURN-LINE FEED 


''DH’' POINTER GOES HERE 
zPICKUP DATA TABLE (DT) POINTER 
IF NONE 


7BR 

SET INDENT SWITCH 

;DATA FORMAT (DF) POINTER 
sNUMBER OF DH'S TO TYPE 

7;BR IF DH NUMBER IS 0 

NO INDENT 

; CARRIAGE RETURN-LINE FEED 
:NUMBER OF DATA WORDS TO TYPE 
;AND HOW TO TYPE THEM 
alan” DECIMAL? 


DECI 
i:SAVE a(R1)+ FOR TYPEOUT 
22G0 TYPE--OCTAL ASCIICALL DIGITS) 


23 SAVE @{R1)+ FOR TYPEQUT 
3GO TYPE--DECIMAL ASCII WITH SIGN 
;MORE NUMBERS TO TYPE? 


NO 
: TYPE 2 SPACES 
LOOP 
ZNORE DH'S? 
ZYES=-START A NEW LINE 
SONLY. A "DH" IN THIS REQUEST ? 


:BR IF YES - BYPASS THE INDENT 
; INDENT? 


\ . ry 


CZ 
ERR 


59 024162 
rs 024164 


76 0242464 


83 024374 


001002 


RMLBC RMOS/3/2 FORMATTER 
OR HANDLER ROUTINE 


036621 
024176 


000004 
001205 


036621 
024326 
117 
105 
001132 


MACRO V04.00 


024360 
127 
123 

023754 


13$: 
148: 


158: 


16$: 
17$: 
PFECH: 


PFECH1: 
PFECH2: 


PFECH3: 
PFECH4: 


PFTSTN: . 
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BNE 13$ 3NO 

TYPE -BLNKS2 z TYPE 2 SPACES 

MOV (RO)+,14$ GET NEXT DH 

TYPE AND TYPE IT 

«WORD QO 3DH ag a , GOES HERE 
TST (RO) sTYPE A 

BNE 15$ _ HBR IF A tore. 


S INCREMENT THE ‘DF* POINTER 
BR 12$ SEE IF END OF ‘DF* BLOCK 

CARRIAGE RETURN-LINE FEED 
TST R ; INDENT? 


BNE $ NO 

TYPE ~BLNKS2 sTYPE 2 SPACES 

BR $ SLOOP 

—* sRESTORE RO=RS 
PC ZRETURN 


RTS E 
PFECH1 ,PFECH2,PFECH3,PFECH4 “WORDS DEFINING TABLES BELOW 
-ASCIZ 2POWER MONITOR BIT iN CPU ERROR REGISTER FOUND SET? 
-ASCIZ ?TESTNO ERR PC CPUERREG? 


» EVEN 

«WORD PFTSTN,SERRFC,CPSAVE,0 

-WORD 1 NUMBER OF DATA HEADERS 

.OYTE = 3 sNUMBER OF WORDS IN DATA TABLE 

-BYTE 0 ALL _3 NUMBERS ARE OCTAL 

WORD 0 ;CONTAINS TEST NUPBER FOR PF BIT ERROR 


-2RMLBO RMO5/3/2 FORMATTER 


TTY INPUT ROUTINE 


. 


924376 
024400 


C24414 
024420 


024462 


024464 


024546 
024550 


024560 


0C0000 
000000 
000000 
024413 


005037 


000207 


117746 


000002 
021627 


001500 


022737 
001004 
104407 
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-SBTTL TTY INPUT ROUTINE 
J {SARA AAA AERA AAAAAAAAAARAARAAKAAAAKAAAARARARTARARRARAAARRARRAR ERE 
-ENABL LSB 
$TKCNT: .WORD 0 zzNUMBER OF ITEMS IN QUEUE 
$TKQIN: .WORD 0 32 INPUT POINTER 
$TKQOUT: .WORD 0O ZZOUTPUT POINTER 
$TKQSRIT: .BLKB 7 3eTTY KEYBOARD QUEUE 
STKQEND=. 
EVEN 
7*TK INITIALIZE ROUTINE 
7*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
7*CALL: 
i* JSR PC, $TKINT 
:* RETURN 
024376 $TKINT: CLR $STKCNT 3;CLEAR COUNT OF ITEMS IN QUEUE 
024404 024400 MOV ASTKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
024400 024402 MOV $TKQIN,$TKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
024464 000060 MOV A$TKSRV AA TKVEC 2 e INITIALIZE THE KEYBOARD VECTOR 
000200 000062 MOV #200, QATKVEC+2 ;;'BR'' LEVEL 4 
154506 TST a$TkB 3zCLEAR DONE FLAG 
000100 154476 MOV #100,a$TKS 7ZENABLE TTY KEYBOARD INTERRUPT 
RTS PC ::RETURN TO CALLER 
7*TK SERVICE ROUTINE 
*xTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*IT IN THE QUEUE. 
7*IF THE CHARACTER IS A “‘CONTROL-C'' (*C) S$TKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C*’ RESTART ADDRESS (@CNTLO) 
154472 $TKSRV: MOVB a$TKB,-(SP) :zPICKUP THE CHARACTER 
177600 BIC #°C177, (SP) 2eSTRIP THE JUNK 
000021 CMP (SP) ,A$XON 71S IT A RANDOM XON? 
BNE 30$ : :BRANCH IF NO 
TST (SP) + LEAN RANDOM XON OFF STACK 
RTI g2 URN 
30$: 
000003 CMP (SP) ,#3 izIS 17 A CONTROL C? 
BNE 1$ ::BRANCH IF NO 
025621 TYPE ~SCNTLC ii TYP& A CONTROL-C (*C) 
024414 JSR PC, $TKINT 32 INI* THE KEYBOARD 
TST (SP) + ZiCLEAN UP STACK 
154640 JMP @CNTLC 2s CONT fie He C RESTART 
000007 1$: CMP (SP) #7 sT$ yaaa G? 
BNE 2o$ : BRARCH IF 
000176 001154 CMP HSWREG, SWR :1S SOFT= ay SELECTED? 
BEG 6$ ::G0 TO SWR CHANGE 
000007 024376 CMP 47, $TKCNT ii1S THE QUEUE FULL? 
BNE :ZBRANCH IF NO 
001200 TYPE / SBELL ZrRING THE TTY BELL 


‘Ty INPUT ROUTINE 
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024564 005726 TST (SP)+ ZICLEAN CHARACTER CFF OF STACK 
024566 000451 BR S$ ZIEXIT 

024570 021627 000023 z$: CMP (SP) #23 3:18 IT A CONTROL=S? 

024574 001021 BNE 32$ i: CH If NO 

024576 005077 154356 CLR asks TIDISABLE TTY KEYBOARD INTERRUPTS 
024602 005726 TST (SP)+ SZ CLEAN CHAR OFF STACK 

024604 105777 154350 31$: TSTB a$IKs t:WAIT FOR A CHAR 

024610 100375 BPL 21$ - $ELOOP UNTIL ITS THERE 

024612 117746 156344 MOVB a$TKB,-SP) i3GET THE CHARACTER 

024616 042716 177600 BIC #°0177, (SP) ZiMAKE IT 7-BIT ASCII 

024622 022627 000021 CMP (SP)+,#21 ‘:1S IT A CONTROL-0? 

024626 001366 BNE 31$ > BRANCH IF NO 

024620 012777 000100 154322 MOV #100, a$TKS ;¢REENABLE TTY KEYBOARD INTERRUPTS 
024636 000002 RTI TURN 

924640 005237 024376 328: INC $TKCNT [COUNT THIS CHARACTER 

024644 021627 000140 CMP (SP) ,4140 i215 IT UPPER CASE? 

024650 002405 BLT 4$ [BRANCH IF YES 

024652 021627 000175 CMP (SP) #175 t:IS IT A SPECIAL CHAR? 

024656 003002 BGT 4$ ::BRANCH IF YES 

624660 042716 000040 BIC #40, (SP) :MAKE IT UPPER CASE 

924664 112677 177510 4$: MOVB (SP)+, @STKQIN STAND PUT IT IN QUEUE 

024670 005237 024400 INC $TKQIN :ZUPDATE THE POINTER 

024674 023727 024400 0246413 CMP STKQIN,#STKQEND ::GO OFF THE END? 

024702 901003 BNE 5$ [BRANCH IF NO 

026704 012737 024404 024400 MOV #STKQSRT,STKQIN ;FRESET THE POINTER 

024712 000002 5$: RTI +S RETUR 


RRA ERE RARER EAE EERE REE AEE Ree eee ee 


“ #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WIL 

S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
3*CALL WHEN mie te es TTY INTERRUPT MODE 


024714 022737 000176 001154 $CKSWR: CMP #SWREG, SWR 21S THE SOF T-SWR StLECTED 

024722 001124 BNE 15$ EXIT IF NO 

024724 105777 154230 TSTB a$TKS rs A CHAR WAITING? 

024730 100121 BPL 15$ cal NOT, EXIT 

024732 117746 154224 MOVB a$TKB,-(SP) reves 

024736 042716 177600 BIC #°C177, (SP) ZrMAKE IT 7-BIT ASCII 

024742 021627 000007 CMP (SP) #7 z:1S IT A CONTROL-G? 

024746 001300 BNE 2$ a Ba IT IN THE TTY QUEUE 
scAND EX 


ZDOIOIOISISIOISIIISIIOIOISIOIIUISIISISIIDIDISIIIOISIIOIOI ROIDISITIDISIDIICISIOIGI ISIS IOI IIIT III TE 
:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


;*CONTROL=G BEING TYPED, AND THE _SOF TWARE SWITCH REGISTER BEING SELECTED. 


024750 123727 001150 000001 é$: CMPB $AUTOB, #1 ARE WE RUNNING IN AUTO-MODE? 
024756 001674 BEQ 2$ BRANCH IF YES 

024760 005726 TST (SP) + 7sCLEAR CONTROL-G OFF STACK 
024762 004737 024414 JSR PC ,$TKINT z3FLUSH THE TTY INPUT QUEUE 
024766 005077 154166 CLR a$TKs 7:DISABLE TTY KEYBOARD INTERRUPTS 
024772 112737 000001 001151 MOVB #1,$INTAG 7¢SET INTERRUPT MODE INDICATOR 
025000 104401 025633 TYPE -SCNTLG 3:ECHO THE CONTROL-G (*G) 

025004 104401 025640 $GTSWR: TYPE - SMSWR 33 TYPE CURRENT CONTENTS 

025010 013746 0C.176 MOV SWREG,- (SP) 7.SAVE SWREG FOR TYPEQUT 

025014 104402 TYPOC 32G0 TYPE=-OCTAL ASCIICALL DIGITS) 





‘ 
? 
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Y 


INPUT ROUT INE 
025016 Me 


117746 
042716 


021627 
001015 
104401 
062706 
123727 
001003 
012777 
000177 


021627 
001005 


000737 


021627 


025254 


025651 
154126 
154122 
177600 


000003 
025621 
0006 


000190 
154266 
000025 
025626 
000006 


000015 
000004 
000002 

06 


0000 
001205 
001151 


000100 


026074 
000060 


000067 


000060 
000002 


000002 
177776 
001204 
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198%: 


7%: 


000001 


154060 
8$: 


9$: 


208: 


10$: 


154006 


000001 
153764 


17$: 


18$: 
.DSABL 


BR 
LSB 


- SMNEW 
=(3P) 

-(SP) 

a$TKS 

7$ 


a$TkKB,-(SP) 

#*C177, (SP) 
(S?) #3 

9$ 

-SCNTLC 

#6,SP 

$INTAG, #1 

8$ 

#100, a$TKS 

aCNTLC 

(SP) #25 
10$ 
/SCNTLU 
6.SP 

19$ 

(SP) #15 
16$ 

4(SP) 

11$ 

2(SP) .@SuR 


-SCRLF 
SINTAG, of) 


15 
#100, a$TKS 


PC ,$TYPEC 
(SP) #60 
8$ 


1 
(SP) , #67 
18% 

#60. (SP)+ 


2(SP) 
-2(SP), (SP) 
7$ 

2 SQUES 

20$ 


s 
37PROMPT FOR NEW SwWR 


Zi CHAR THERE? 
zz 1F NOT TRY AGAIN 


:3PICK UP CHAR 
eMAKE IT 7-B1T ASCII 


i15S IT A CONTROL=C? 

3 BRANCH IF NOT 

srYES, ECHO CONTROL=C (*C) 
7ECLEAN UP STACK 

> sREENABLE ity KEYBOARD INTERRUPTS? 
: BRANCH _IF NO 

7;ALLOW TTY KEYBOARD INTERRUPTS 
3. CONTROL=C RESTART 


3218 IT A CONTROL=U? 

7 zBRANCH IF NOT 

2¢YES, ECHO CONTROL-U (“U) 
zs IGNORE PREVIOUS INPUT 
:eLET'S TRY IT AGAIN 


iil IT A <CR>? 

BRANCH IF NO 
Z:YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 


7zECHC <CR> AND <LF> 
7 RE-ENABLE ane KBD INTERRUPTS? 


NO 
7¢RE-ENABLE TTY KBD INTERRUPTS 


sf ? 
7 BRANCH IF YES 


; ; BRANCH IF YES 

2: STRIP-OFF ASCII 

riIS THIS THE FIRST CHAR 
izBRANCH IF YES 

ZiNO, SHIFT PRESENT 

<2 CHAR OVER TO MAKE 
re ROOM FOR NEW ONE. 
33¢KEEP COUNT OF CHAR 
i: SET IN NEW CHAR 
:;GET THE NEXT ONE 

sz TYPE ?<CR><LF> 
czSIMULATE CONTROL-U 


Cg TRARARAKHARAARKERERAAL EKER ATARARARAKARECKAARARAARAARA TKO RAA eRe ewe 
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INPUT ROUTINE 


:* THIS eee WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL 

re i:GET A CHARACTER FROM THE QUEUE 
te RETURN HERE Z:CHARACTER IS ON THE STACK 

os iiWITH PARITY BIT STRIPPED OFF 


025256 011646 $RDCHR: MOV (5P) ,-(SP) - 33PUSH DOWN THE PC AND 
025260 916666 000004 000002 MOV 4(SP),2¢SP) sa THE PS 
025266 005066 000004 CLR 4(5P) 23GET READY FOR A CHARACTER 
025272 005046 CLR -(SP) sPUT NEW PS ON STACK 
025274 012746 0253502 MOV #64$,-(SP) + PUT NEW PC ON STACK 
025300 000002 RTI ::POP NEW PC AND PS 
025302 64$: 
025302 005737 024376 1$: TST $TKCNT 7zWAIT ON A CHARACTER 
025306 001775 BEQ 1$ 
025310 005337 024376 DEC $TKCNT :zDECREMENT THE COUNTER 
025314 117766 177062 000604 MOVB @$TKOQOUT 4 (SP) Rey ONE CHARACTER 
025322 005237 024402 INC $TKQOUT PDATE THE POINTER 
625326 023727 024402 024413 CMP $TKQOUT ,#STKQEND DID IT GO OFF OF THE END? 
025334 001003 BNE 2$ 2: :BRANCH IF NO 
025336 012737 024404 024402 MOV #STKOSRT,STKQOUT :;RESET THE POINTER 
025344 000002 2$: RTI 3 :RETURN 
FL ARERR REAR ERA REE RE RKRAEAARE EEE ERAERAEAE EE AEEe 
pps ROUTINE WILL INPUT A STRING FROM THE TTY 
"* : 
a” RDLIN 72 INPUT A STRING FROM THE TTY 
= RETURN HERE ;ZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
=e 2; TERMINATOR WILL BE A BYTE OF ALL O'S 
025346 010346 $RDLIN: MOV R3,-(SP) ii SAVE R3 
025350 005046 CLR -(SP) 3zCLEAR THE RUBOUT KEY 
025352 012703 025602 1$: MOV ASTTYIN,R3 3iGET ADDRESS 
025356 022703 025621 2$: CMP ASTTYIN+15.,R3 ;;BUFFER FULL? 
025362 101456 BLOS 4$ ::BR IF YES 
025364 104410 RDCHR 3:GO READ ONE CHARACTER FROM THE TTY 
025366 112613 MOVB (SP)+,(R3) a CHARACTER 
025370 122713 000177 10$: CMPB #177, (R3) Ce ee 4 3 a RUBOLT 
025374 001022 BNE 5$ :iBR IF 
025376 005716 TST (SP) DiI THIS. THE FIRST RUBOUT? 
025400 001007 BNE 6$ 37BR IF 
025402 112737 000134 025600 MOVB #'°\,9% iITYPE A NBACK SLASH 
025410 104401 025600 TYPE 9S 
025414 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
025420 005303 6$: DEC R3 3 BACKUP BY ONE 
025422 020327 025602 CMP R3,ASTIYIN sipiAce EMPTY? 
025426 103434 BLO 4$ :3BR TE YES 
025430 111337 025600 MOVB (R3) , 9% =e, TO TYPEOUT THE DELETED CHAR. 
025434 104401 025600 TYPE 9$ ::G0 TYPE 
025440 000746 BR 2$ 7:GO READ ANOTHER CHAR. 
025442 005716 5$: TST (SP) Ao ag re KEY SET? 
025444 001406 BEQ 7$ 7:BR IF NO 
025446 112737 000134 025600 MOVB #'\,9$ >: TYPE A BACK SLASH 
025454 104401 025600 TYPE 9$ 
025460 005016 CLR (SP) 5zCLEAR THE RUBOUT KEY 
025462 122713 000025 7$: CMPB #25,(R3) zi:lS CHARACTER A CTRL U? 


025466 001003 BNE 8$ 33:BR IF NO 
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025470 104401 025626 TYPE »SCNTLU sa TYPE A CONTROL ‘U"' 

025474 000726 BR 1$ 32GO START OVER 

025476 122715 000022 R$: CMPB #22,(R3) ii1S CHARACTER A '"*R''? 

925502 001011 BNE 3$ : BRANCH IF NO 

025504 105013 CLRB (R3) =:CLEAR THE CHARACTER 

025506 104401 001205 TYPE -$CRLF si TYPE A CR & ‘\* 

625512 104401 025602 TYPE LSTTYIN sire THE INPUT STRING 

025516 000717 BR 2s - 3360 es ANOTHER CHACTER 
025520 104401 001204 43: TYPE ~SQUES sTYPE A 

025524 000712 BR 1$ SICLEAR THe BUFFER AND LOOP 
025526 .111337 025600 3$: MOVB (R3) ,9$ 7.ECHO THE CHARACTER 

025532 104401 025600 TYPE a) ) 

025536 122723 000015 CMPB #15, (R3)+ 33 CHECK ce gh os 

025542 001305 BNE 2$ LOOP IF NOT RETURN 

025544 105063 177777 CLRB -1(R3) TE PEAR RETURN (THE 15) 

025550 104401 001206 TYPE SlF aes A LINE FEED 

025554 005726 TST (SP) + + CLEAN RUBOUT KEY FROM THE STACK 
025556 012603 MOV (SP) +,R3 STORE R3 

025560 011646 MOV (SP) ,~ (SP) «ADJUST THE STACK AND PUT wot A al THE 
625562 016666 000004 000002 MOV 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON | 
025570 012766 025602 000004 MOV ASTTYIN,4(SP) 

025576 000002 RTI 3 RETURN 

025600 000 9$: .BYTE 0 72 STORAGE FOR ASCII CHAR. TO TYPE 
025601 000 BYTE 0 32 TERMINATOR 

025602 $TTYIN: .BLKB- 15. 7 RESERVE 15. BYTES FOR TTY INPUT 
025621 136 103 $CNTILC: .ASC]I /*C/<15><12> 7: CONTROL *'C’’ 


015 Z 

015 $CNTLU: .ASCIZ /*U/<15><12> :: CONTROL ‘U"’ 

025633 136 107 015 $CNILG: .ASCIZ /*G/<15><12> 7 CONTROL ‘'G’' 
123. SMSWR: .ASCIZ <15><12>/SWR = / 

025651 040 040 116 SMNEW: .ASCIZ / NEW = 


F §8 
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M aMATTER MACRO v04.00 
.SBITL TYPE ROUTINE 
"MRR RERRARRTAAtASHTRHKAeReaeKEKRHhRakeanteeaeewaaeeeannanteneteanaeea 
+ *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
THE partes WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
:*NOTE1 $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
 eNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
s*CALL: 
aD USING A TRAP ee te 
“oR TYPE »MESAD 7iMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
: TYPE 
a MESADR 
025662 105737 001173 $TYPE TSTB STPFLG iil THERE A TERMINAL? 
025666 100002 BPL 1$ If YES 
625670 000000 HALT TZHALT HERE IF NO TERMINAL 
025672 000430 BR 3$ src 
025674 010046 1$: MOV RO,-(SP) AVE RO 
025676 017600 000002 MOV a2(SP) RO Ge ADDRESS OF ASCIZ STRING 
025702 122737 000001 001230 CMPB HAPTENV, SENV RUNNING IN APT MODE 
025710 (001011 BNE 62$ NO, GO CHECK FOR APT CONSOLE 
025712 132737 000100 001231 BITB #APTSPOOL , SENVM + SPOOL MESSAGE TO APT 
025720 001405 BEQ 62$ 72NO,GO CHECK FOR CONSOLE 
025722 010037 025732 MOV RO,61$ S:SETUP MESSAGE ADDRESS FOR APT 
025726 004737 027512 JSR PC, SATY3 :zSPOOL MESSAGE TO APT 
025732 00000 61$: . WORD 0 3 «MESSAGE ADDRESS 
25734 132737 000040 9001231 628: BITR HAPTCSUP,SENVM = ;;APT CONSOLE SUPPRESSED 
025742 001003 BE 608 ZYES,SKIP TYPE OUT 
025744 112046 2$: MOVB (RO) +, =(SP) ::PUSA CHARACTER TO BE TYPED ONTO STACK 
025746 001005 BNE 4$ R IF IT ISN'T THE TERMINATOR 
025750 005726 TS? (SP) + ‘itr TERMINATOR POP IT OFF THE STACK 
025752 012600 60$: MOV (SP) +,RO : RES STORE RO 
025754 062716 000002 3$: ADD #2, (SP) : ADJUST RETURN PC 
025760 00000 RTI RETURN 
025762 122716 000011 4%: CMPB HT, (SP) :iBRANCH IF <HT> 
025766 001430 BEG $ : 
025770 122716 000200 CMPB ACRLF, ESP) 7 BRANCH IF NOT <CRLF> 
025774 1 BNE 5$ 
025776 005726 TST (SP)¢ 77POP <CR><LF> EQUIV 
026000 104401 TYPE si TYPE A CR AND LF 
026002 001205 $CRLF 
026004 105037 026212 CLRB $CHARCNT ZiCLEAR CHARACTER COUNT 
026010 000755 BR 2$ ::GET NEXT CHARACTER 
026012 004737 026074 5$: JSR PC ST YPEC 3360 TYPE THIS CHARACTER 
026016 123726 001172 6$: CMPB $FILLC,(SP)+ si1S IT TIME FOR FILLER CHARS.? 
026022 001350 BNE 2$ zi1F NO GO GET NEXT CHAR. 
026024 013746 001170 MOV $NULL ,- (SP) :iGET #4 OF FILLER CHARS. NEEDED 
ZZzAND THE NULL CHAR. 
026030 105366 000001 7%: DECB 1(SP) 72 DOES A NULL NEED TO SE TYPED? 
026034 ois falas BLT 6$ iBR OIF 5 POP THE NULL OFF OF STACK 
026036 004737 026074 JSR PC, STYPEL 360 TYPE A NULL 
0260462 hte 026212 DETR $SCHARCNT O NOT COUNT AS A COUNT 
026046 000770 BR 7$ +:LOOP 
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TRE ROUTINE 
HORIZONTAL TAB PROCESSOR 
026050 112716 000040 8E: MOV #* (SP) SZREPLACE TAB WITH SPACE 
26054 04737 026074 — Ses JSR PC STYPEC soTYPe A SPACE 
132737 000007 026212 BITB #7  SCHARCNT 7BRANCH IF NOT AT 

26066 001372 BNE $ 3 STOP 

026070 005726 TST (SP) + - gzPOP SPACE OFF STACK 

026072 000724 BR 2$ 72GET NEXT CHARACTER 

026074 BIYPEC: 
026074 105777 153060 TST6 asirKs ‘eT IN KYBD BUFFER? 
026100 100022 BPL 10$ 2BR IF NOT 

026102 017746 153054 MOV a$TkB,-(SP) : T CHAR 

026106 042716 177600 BIC 4177600, (SP) 33 STRIP ian BITS 
026112 122716 000023 LMPB ASKOFF (SP) WAS CHAR XOFF 

026116 001012 BNE 102$ :7BR IF NOT 
026120 101$: 
026120 105777 153034 TSTB a$TKs :zWAIT FOR CHAR 
026126 100375 BPL 101% 
626126 117716 153030 MOVB a$TKB, (SP) :3GET CHAR 
026132 042716 177600 BIC #177600, (SP) szSTRIP IT 

926136 122716 000021 C(MPB A$XON, (SP) rrWAS IT XON? 
026142 001366 BNE 101$ :7BR IF NOT 
026144 1028: 
026144 005726 TST (SP) + szF IX STACK 
026146 10$: 
026146 105777 153012 TSTB ig zi WAIT UNTIL PRINTER IS READY 
026152 100375 BPL 10$ 
026154 116677 Q00002 153004 MOVB 2(SP), a$tPs :ZLOAD CHAR TO BE TYPED INTO DATA REG. 
026162 122766 000015 000002 CMPB ACR, 2(SP) zz1S CHARACTER A CARRIAGE RETURN? 
026170 001003 BNE 1$ BRANCH IF NO 
026172 195037 026212 CLRB $CHARCNT 3 7YES--CLEAR CHARACTER COUNT 
026176 000406 BR $TYPE X EXIT 
026200 122766 000012 000002 1$: CMPB LF 2(SP) :r1S CHARACTER A LINE FEED? 
026206 001402 BEQ $TYPEX rZBRANCH IF YES 

026210 105227 INCB (PC)+ 7: CQUNT THE CHARACTER 
026212 $CHARCNT: WORD @ SZ CHARACTER COUNT STORAGE 
026214 000207 $TYPEX: RTS 


Se : 
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BINARY TO CCTAL (ASCII) AND TPE 


-SBITiL BINARY TO OCTAL (ASCII) AND TYPE 


s PTR CRA Ae Re RO RARE HAE eTAeRe HARA eeeeKEREReseReeenneeeeneonentanes 
7*THIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 6=DIGIT 
Z*OCTAL (ASCII) NUMBER AND TYPE IT. 


*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TyPE 


2*CALL: 
ie MOV NUM, =(SP) ' 3 ;NUMBER TO BE TYPED 

= TYPOS zz CALL FOR TYPEOUT 

:* -BYTE N Z3iN=1 70 6 FOR NUMBER OF DIGITS TO TYPE 
z* .BYTE M ::M=1 OR O 

:* 321=TYPE LEADING ZEROS 

2 77 0=SUPPRESS LEADING ZEROS 


eee, 


*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*$TYPOS OR $TYPOC 


:*CALL: 
:* MOV NUM, - (SP) 7zNUMBER TO BE TYPED 
7* TYPON 3ZCALL FOR TYPEOUT 
4° Ayes apd HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3*CALL: 
sk MOV NUM, ~ (SP) 3zNUMBER TO BE TYPED 
site TYPGC 7:CALL FOR TYPEQUT 
026216 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ;zPICKUP THE MODE 
026222 116637 000001 026441 MOVB 1(SP) , SOF ILL 7;LOAD ZERO FILL SWITCH 
026230 112637 026443 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
026234 062716 000002 ADD #2, (SP) :zADJUST RETURN ADDRESS 
026240 000406 BR $TYPON 
026242 112737 000001 026441 $TYPOC: MOVB #1,$0F ILL 7iSET THE ZERO FILL SWITCH 
026250 112737 000006 026443 MOVB #6,$0MODE+1 7zSET FOR SIX(6) DIGITS 
026256 112737 000005 026440 $1YPON: MOVB AS, SOCNT :i:SET THE ITERATION COUNT 
026264 010346 MOV R3,-(SP) 27 SAVE R3 
026266 010446 MOV R4,-(SP) 72 SAVE R4 
026270 010546 MOV R5,-(SP) 77 SAVE R5 
026272 113704 026443 MOVB SOMODE +1, RG 3:GET THE NUMBER OF DIGITS TO TYPE 
026276 005404 NEG ; 
026300 062704 000006 ADD a. R4 2 ,SUBTRACT IT FOR MAX. ALLOWED 
026304 110437 026442 MOVB R4. SOMODE Zi SAVE IT FOR USE 
026310 113704 026441 MOVB SOF ILL RS 3-GET THE ZERO FILL SWITCH 
026314 016605 000012 MOV 12¢SP),R5 :zPICKUP THE INPUT NUMBER 
026320 005003 CLR R3 izCLEAR THE OUTPUT WORD 
026322 006105 i$: ROL R5 : ROTATE MSB INTO ‘'C’’ 
026324 000404 ; BR 3$ ;;G0 DO MSB 
026326 006105 es: ROL R5 7: FORM THIS DIGIT 
026330 006105 ROL R5 
026332 006105 ROL R5 
026334 010503 MOV R5,R3 
026336 006103 3$: ROL R3 :7GET LSB OF THIS DIGIT 
026340 1053357 026442 DECB S$OMODE si TYPE THIS DIGIT? 
026344 100016 BPL 7$ 72BR IF NO 
026346 042703 177770 BIC #177770,R3 :i:GET RID OF JUNK 
026352 001002 BNE 4% ae FOR 0 
026354 005704 TST RG : SUPPRESS THIS 0? 
026356 001403 . : BEO 5$ 53 IF YES 
026360 005204 4%: INC RS ZDON'T SUPPRESS ANYMORE O'S 


CRMC BO RMO5S/3/2 FORMATTER 


BINARY TO OCTAL 
026562 
026366 


626442 


(ASCII) AND TYPE 


052703 
Q 


900002 


MACRO VO4.00 


63: 


000004 


8$: 


$OCNT: 
SOF ILL: 


SOMODE: .WORD 


($P2*, CSP? 


ooooo 


; 1 8 
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ZeMAKE THIS DIGIT ASCII 
caMAKE ASCII IF NOT ALREADY 
izSAVE FOR TYPING 

32GO TYPE THIS DIGIT 

Se COUNT BY 7 

72BR IF MORE TO DO 
33BR IF 


DONE 
’ 3g INSURE LAST DIGIT ISN'T 4 8 AN® 


3:GO DO THE LAST DIGI? 
STORE R5 


RESTORE R4 
sZRESTORE R3 
TSSET THE STACK FOR RETURNING 


7 RETURN 

sz STORAGE FOR ASCII DIGIT 

77 TERMINATOR FOR TYPE ROUTINE 
:sQCTAL DIGIT COUNTER 

7iZERO FILL SWITCH 

7iNUMBER OF DIGITS TO TYPE 
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t+ CIMA, AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DTU TAA AERA REAR EERARE RARER ERRAREREREAEEREERETTERE DERE RAEERe 

*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5=-DIGIT 

>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER TRE 
2 *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
: *BEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BF 
*REPLACED WITH SPACES. 


es oy 
i. MOV NUM, = (SP) 77PUT THE BINARY NUMBER ON THE STACK 
i* TYPDS 3;iGO TO THE ROUTINE 
$TYPDS: 
046 MOV RO,-(SP) 77PUSH RO ON STACK 
146 MOV R1,-(SP) 37PUSH R1 ON STACK 
246 MOV R2,7(SP) 7zPUSH R2 ON STACK 
0346 MOV : R3,-(SP) 72PUSH R3 ON STACK 
010546 MOV R5,-(SP) 32PUSH RS ON STACK 
012746 020200 MOV #20200, -(SP) 3iSET BLANK SWITCH AND SIGN 
016605 060020 MOV 20(SP),R5 37GET THE INPUT NUMBER 
100004 BPL 1$ ::BR IF INPUT IS POS. 
095405 NEG R5 7 MAKE THE BINARY NUMBER POS. 
112766 000055 000001 MOVB #'=,1(SP) + MAKE THE ASCII NUMBER NEG. 
005000 1$: CLR RO :;ZERO THE CONSTANTS INDEX 
012703 026660 MOV A#$DBLK R53 ;:SETUP THE OUTPUT POINTER 
112723 000040 MOVB #" ,(R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
005002 2$: CLR R2 7: CLEAR THE BCD NUMBER 
016001 026650 MOV $DTBL (RO) ,R1 3iGET THE CONSTANT 
160105 38: SUB R1,R5 ;:FORM THIS BCD DIGIT 
002402 BLT 4$ 47° IF DONE 
005202 INC Re ; INCREASE THE BCD DIGIT BY 1 
006774 BR 3$ 
060105 4$: ADD R1,R5 ;z;ADD BACK THE CONSTANT 
005702 TST R2 37 CHECK IF BCD DIGIT=0 
001002 BNE 5$ 7s FALL THROUGH IF 0 
105716 TSTB (SP) :STILL DOING LEADING 0'S? 
100407 BM] 7% :2BR IF YES 
106316 5$: ASLB (SP) MSD? 
103003 BCC 6$ ::BR IF Ni 
116663 000001 177777 MOVB 1CSP) ,~1(R3) iWES-CSET THE SIGN 
052702 000060 6$: BIS #'OLR2 + MAKE THE BCD DIGIT ASCII 
052702 000040 7$: BIS #" ,R2 iMAKE IT A SPACE IF NOT ALREADY A DIGIT 
110223 MOVB R2,(R3)+ ;iPUT THIS CHARACTER iN THE OUTPUT BUFFER 
005720 TST (RQ) + 2; JUST INCREMENT ING 
020027 000010 CMP RO,#10 >: CHECK THE TABLE INDEX 
002746 BLT 2$ 2:G0 DO THE NEXT DIGIT 
003002 8GT 8$ ::GO TO EXIT 
010502 MOV R5,R2 a THE LSD 
000764 BR 6$ :GO CHANGE TO ASC 
105726 8$: TSTB (SP)+ rWAS Hg a THE HiRst NON=ZERO? 
100003 BPL 9$ <BR IF N 
116663 177777 177776 MOVB ~1<(SP) ,-2(R3) < ESHCSET THE ob FOR TYPING 
105013 1G: CLRB (R3) ZiSET THE TERMINATO 
012605 MOV (SP)+,R5 :iPOP STACK INTO RS 
012603 MOV (SP) +,R3 3zPOP STACK INTO R3 
012602 MOV (SP)+,R2 z7POP STACK INTO R2 


012601 MOV (SP)+,Ri 37POP STACK INTO R1 


co 
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“ONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


30 012600 MOV (SP)+,RC 33POP STACK INTO RO 
026632 104401 C€26660 TYPE . $DBLK 3sNOW TYPE THE NUMBER 
026636 016666 000002 000004 MOV 2(SP) ,4(SP) ADJUST THE STACK 
026644 012616 MOV (SP) +, (SP) 

026646 000002 RTI 72RETURN TO USER 
026650 023420 $DTBL: 10000. 

026652 001750 1000. 

026654 000144 100 

026656 000012 10. 

026660 $DBLK: .BLKW 4 


7RMLBO RMOS/3/2 FORMATTER 
SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S 


028670 


PWM OVW VOuh wry 


ee ee ny 


36 026766 


010046 
016600 
005057 
000405 


010046 
016600 
010037 


105710 


000207 


000004 
026760 


000004 
026760 


000060 
000040 
000060 
026760 
026760 





WITH BLANKS 
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-SBTTL $SUPRS = TYPE ASCIZ, REPLACE LEADING O'S WITH BLANKS 
~SBITL $SUPRL - TYPE ASCIZ, LEFT JUSTIFY 


. 
ee 


Zz CALL: 


OR 


Seer eee 
= 
wn 
»D 


$SUPRL: MOV 


$SUPRS: MOV 


$SUPR1: 
1$: 


es: DEC 
3$: TST 


4$: 
$SUPR2: 


ANUMADR , = (SP) 
PC,$SUPRS 


A#NUMADR , = (SP) 


PC..$SUPRL 
RO,-(SP) 


$SUPR1 
RO,-(SP) 
4(SP) ,RO 
RO, $SUPR2 
(RO) 

2$ 
leds 
#40, (RO)+ 
1$ 

RO 

#'0, (RO) 
$SUPR2 
4$ 

RO, $SUPR2 
0 

(SP) +,RO 


(SP) +, (SP) 
PC 


RRR ARAEAAARAAARHERRERARERRARRAEAKAREHRRER EKER eee nae 


FIRST ADDRESS OF ASCIZ STRING 


sFIRST ADDRESS OF ASCI7 STRING 
sSAVE RO 
3GET POINTER TO MESSAGE 


;SAVE RO 
:GET POINTER TO MESSAGE 


;GET POINTER FOR TYPING 
eh FOR TERMINATOR 

a THIS A ‘0'' ? 

SREPLACE IT WITH A ‘BLANK’ 
SNEXT CHAR. 

;BACKUP 1 

sMAKE IT ‘'0"' 

De JUSTIFY ? 


tYES 


RESTORE RO 
sRESTORE STACK 


SEG Ui0d 


ZRMLBO RMOS/3/2 FORMATTER 
$SUPR 1Z, LEFT JUSTIFY 


Ro = TYPE ASC 


026770 005237 027076 
026774 010046 

026776 016600 000004 
027002 005737 027076 
027006 

027010 122710 000060 


027016 112710 000040 


MQ 9 A 
SUMNA NSW -O OO NA Ub 


25 027034 112710 000060 
26 027040 016600 000004 


31 027054 010037 027062 


36 027070 005037 G27074 
37 027074 000205 


38 
39 027076 000000 
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4 res TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


sADDRESS OF NUMBER (IN ASCII) 
sREPLACE PRECEDING ZEROS WITH BLANKS 


i] 
a 


Re Be Be Be Se Oe Be we 


5$: 


FIELO: 


MADR ,~(SP) 
RS .REPLZ 


#ADR,~(SP) 
lade 


FILLO 
RO,-(SP) 
4(SP) ,RO 
FILLO 

3$ 
bic 
#40, (RO) 


0 

(SP)+,RO 
(SP)+, (SP) 
FILLO 

R5 


IS NUMBER OF DIGITS TO BE TYPED 


sADDRESS OF NUMBER (IN ASCII) 


Mie PRECEDING ZEROS 
IS NUMBER OF DIGITS TO BE TYPED 


LEAVE ZERO'S 


i SAVE RO 
ADDRESS OF NUMBER TO % 


LEAVE PRECEDING ZEROS ? 


7BR IF YES 
;BYTE EQUAL TO ASCII ‘0° ? 


-BR_IF NOT 
REPLACE THE ZERO WITH A SPACE 


+ INCREMENT THE BYTE ADDRESS 
GO BACK AND LOOK FOR MORE LEADING ZEROS 


:SEE IF Ze ZERO BYTE TERMINATOR 
BACKUP STRING POINTER 


PUT A ZERO BACK IN 


[PUT ADDRESS OF FIRST CHARACTER ON STACK 
7SEE IF ZERO BYTE TERMINATOR 

:BR IF NOT 

:BACKUP STRING POINTER 

sADJUST ADDRESS 

sGET ADDRESS FOR TYPEOUT 

; TYPE THE NUMBER 

ADDRESS OF NUMBER 


;sPOP STACK INTO RO 


sRESTORE STACK 
sRESET FILL FLAG 
RETURN 


IF SET, LEAVE PRECEDING ZEROS FOR TYPE 


RMOS/ 3/2 


027130 


FORMATTER 
ENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


016637 
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-SBTITL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


« seeennnesdeeennenoeesesesessstenneseeeneceantrenesesccenseneeace 
:*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
Z*UNSIGNED DECIMAL ASCIZ NUMBER. 


7*CALL 

i* MOV NUMBER, -(SP) 33PUT BINARY NUMBER ON THE STACK 

i* JSR PC. a#$SB2D 22 CALL 

ze RE TURN TZADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
000002 027130 $SB2D: MOV 2(SP) ,1$ 72: SAVE BINARY NUMBER 
027130 MOV #1$.-(SP) ::SET POINTER 
027134 JSR PC, a#$DB2D 37CALL DOUBLE LENGTH CONVERT 
000005 ADD #5, (SP) ;ZONLY ALLOW FIVE CHARACTERS 
000092 MOV (SP)+,2(SP) :zPICKUP POINTER 

RTS PC 72 RETURN 

000000 1$: . WORD 0,0 





027300 
027302 


@ e 
sf 


104412 


FORMATT 
INARY "QO DECIMAL ASCII CONVERT ROUTINE 


BY 
ER MACRO V04.00 4=-APR-81 18:39:56 PAGE 38 


-SBITL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


FAAAAAAARATRAARETAAREE ATK AARAHAEKARARHERHEEKERE KARR eRe teRReeseTe 


:STHIS ROUTINE WILL CONVERT A 32-817 BINARY NUMBER TO AN UNSIGNED 
; sDECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST 8E£ 


i sPOSIT IVE. 
2* CALL 
* MOV #PNTR,-(SP) . ;:POINTER TO LOW WORD OF BINARY NUMBER 
* JSR PC, a#$DB2D 
te RE TURN yr THE FIRST ADDRESS OF ASCIZ 
tI1S ON THE STACK 
$DB2D: SAVREG 1s SAVE REGISTERS 
000002 MOV 2(SP) ,R2 PICKUP THE DATA POINTER 
0273146 MOV #SDECVL RO ‘GET ADDRESS OF ‘‘SDECVL'’ STRING 
000002 MOV RO,2(SP) :SPUT ADDRESS OF ASCIZ STRING ON STACK 
MOV (R2)+,R1 [:PICKUP THE BINARY NUMBER 
MOV (R2)+.R2 
000012 027222 MOV #10..4$8 :SET UP TO DO 10 CONVERSIONS 
027244 MOV #STNPWR RG :ZADDRESS OF TEN POWER 
027246 MOV #STNPWR+2, R5 
1$: CLR R3 iiCLEAR PARTIAL 
23: SUB (R4) RI : SUBTRACT TEN POWER 
SBC R2 
SUB (R5),R2 . 
BLT 3$ 7:BR IF TEN POWER TO LARGE 
INC R3 ‘ADD 1 TO PARTIAL 
BR 2$ LOOP 
3$: ADD (R4)+,R1 T=RESTORE SUBTRACTED VALUE 
ADC R2 
ADD (R4)+,R2 
CMP (R5)+.(R5)+ ::MOVE TO NEXT TEN POWER 
000060 BIS #°0,R3 ZCHANGE PARTIAL TO ASCII 
MOVB _—R3, (RO) + TSAVE IT 
DEC (PC) + >: DONE ? 
4$: . WORD QO. 
BNE 1$ 7:BR IF NO 
CLRB —s (RO) + TERMINATOR 
RESREG SIRESTORE REGISTERS 
RTS PC  DRETURN 
STNPWR: 145000 721.0E09 
345632 
160400 521.0E08 
2765 
113200 321.0E07 
230 
041100 1:1.0E06 
103240 221.0605 
23420 721.0E04 
a :21.0€03 
771.0E02 


C 
“28M. BO RMOS/3/2 FORMATTER MACRO VO4.00 4-APR-81 18:39:56 PAGE se) 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


ri B0000 ag 327.0E01 
8s 1 1 321.0E00 


19 
312 000000 0 
314 SDECVL: .BiKB 12, ZeRESERVE STORAGE FOR ASCIZ STRING 


eee a a 
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INGLE LENGTH BINARY TO OCTAL ASCIZ ROUTINE 


-SBTTL SINGLE LENGTH BINARY 10 OCTAL ASCIZ ROUTINE 
EPP IIIT teil i iit erect i iii its iii titi ii itt titi iit iii t ii ee) 


[*THIS ROUTINE WILL CONVERT A _— UNSIGNED BINARY NUMBER TO AN 
s*UNSIGNED OCTAL ASCIZ NUMBER 


*CALL 


_ MOV NUMBER , = (SP) 32PUT BINARY NUMBER ON THE STACK 
3 JSR PC, a#$SB20 ~ SSEARL 
3” RE TURN 7sADDRESS OF 1ST ASCIZ CHAR. IS ON THE STACK 
027330 016637 000002 027360 $5820: MOV 2(SP) ,1$ SAVE THE BINARY NUMBER 
027336 012746 027360 MOV #1$,-(SP) SET POINTER 
027342 004737 027364 JSR PC, a@#$DB20 Z CALL DOUBLE LENGTH CONVERT ROUTINE 
027346 062716 000005 ADD #5, (SP) ONLY ALLOW SIX CHARATTERS 
027352 012666 000002 MOV (SP)+, 2(SP) : :PICKUP POINTER 


027356 000207 : RTS RETURN 
027360 000000 600000 1$: - WORD 0:0 





—E 9 
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CONVERT ROUTINE fo 


-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


PLRRO ARR A RAAT EE TREE REET R EERE R EKER LER eeReeKeeennERe 
*THIS ROUTINE WiLL CONVERT s an et UNSIGNED BINARY NUMBER TO AN 
3 UNSIGNED OCTAL ASCIZ NUMBER 


“7RML BO RMOS/3/2 FORMATTER “A 
DOUBLE LENGTH BINARY '0 OCTAL ASC! 


on 


i MOV #PNTR,—(SP) ssPOINTER TO LOW WORD OF BINARY NUMBER 
z* JSR PC ,a#$DB20 * 32CALL THE ROUTINE 
i* RETURN 2aTHE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
027364 104412 $DB20: SAVREG ey 3 ALL REGISTERS 
027366 016601 000002 MOV 2¢(SP),R1 PICKUP THE POINTER TO ! Ow WORD 
027372 012705 027503 MOV #SOCTVL+13.,R5 ;POINTER TO DATA TABLE 
027376 012704 000014 MOV #12. ,R4 ::D0 ELEVEN CHARACTERS 
027402 012703 177770 MOV #*C7,R3 SK 
027406 012100 MOV (R1)+,RO TILOWER WORD 
027410 012101 MOV (R1)+,R1 3 zHIGH WORD 
027412 005002 CLR R2 ; s TERMINATOR 
027414 110245 1$: MOVA R2,-(R5) 3=PUT CHARACTER IN DATA TABLE 
027416 010002 MOV RO,R2 32GET THIS DIGIT 
027420 005304 DEC RS 3sCOUNT THIS CHARACTER 
027422 003007 BGT 3$ 3:BR IF NOT THE LAST DIGIT 
027424 001405 BEQ 2$ :iBR IF IT IS THE LAST DIGIT 
027426 005205 INC R5 sALL DIGITS DONE-ADJUST’ POINTER FOR FIRST 
027430 010566 000002 MOV R5,2¢SP) 3sASCIZ CHAR. & PUT IT ON THE STACK 
027434 104413 RESREG isRESTORE ALL REGISTERS 
027436 000207 RTS PC i ¢RETURN TO USER 
027440 006203 2$: ASR R3 7zPOSITION THE MASK FOR THE wy DIGIT 
027442 006001 3$: ROR R1 3zPOSITION THE BINARY NUMBER 
027444 006000 ROR RO oe THE NEXT OCTAL DiGiT 
027446 00600 ROR R1 
027450 0060: ROR RO 
027452 006001 ROR R1 
027454 006000 ROR RO : 
027456 040302 BIC R3,R2 7sMASK QUT ALL JUNK 
027460 062702 000060 ADD #°O,R2 isMAKE THIS CHAR. ASCII 
027464 000753 BR 1$ 37G0 PUT IT IN THE DATA TABLE 


027466 SOCTYL: .BLKB 14. ;eRESERVE DATA TABLE 


eM, 


o MOS / (342 


FORMATTER 


MMON I AT ONS ROUTINE 


027750 


112737 
112737 


000403 
112737 
010046 


000001 
000001 


000001 


027746 
000001 
000100 
000004 
000062 
001210 


001224 
001224 
001226 
000004 


025662 


027750 
001230 
001210 


027746 
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-SBTTL APT COMMUNICATIONS ROUTINE 


pL RAPA eee eee RA RHe TERE TARTAR RHEE REE REE HERREREeE ERE EERE EEOEe 
027750 $ATY1: MOVB #1,$FFLG 72TO REPORT FATAL ERROR 
027746 $ATY3: MOVB 41, $MFLG 33TO TYPE A MESSAGE 


Bi 
027750 $ATY4: MOVB #1,$FFLG _ 3370 ONLY REPORT FATAL ERROR 


SATYC: 
MOV RO,-(SP) 7z7PUSH RO ON STACK 
MOV R1,-(SP) ‘PUSH R1 ON STACK 
TSTB = SMFLG : SHOULD TYPE A MESSAGE? 
BEQ 5$ IF BR 
001230 CMPB  —s #APTENV, SENV ; FOPERATING UNDER APT? 
BNE 3$ SIF NOT: BR 
00123 B78 SAPTSPOOL .SENVM i SHOULD D SPOOL MESSAGES? 
MOV a4 (SP) ,RO SIGET SME SSAGE ADDR. 
000004 ADD #2,4 (SP) ;;BUMP RETURN ADDR. 
1$: TST $MSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
BNE 1$ t:IF NOT: WAIT 
MOV RO, $MSGAD ::PUT ADDR IN MAILBOX 
28: TSTB (RO) + ::FIND END OF MESSAGE 
BNE 2$ 
SUB $MSGAD,RO :7SUB START OF MESSAGE 
ASR RO :2GET MESSAGE LNGTH IN WORDS 
MOV RO, $MSGLGT * PUT LENGTH IN MAILBOX 
001210 MOV #4, SHSGTYPE ::TELL APT TO TAKE MSG. 
027660 33: MOV a4(SP) 48 :zPU' MSG ADDR IN JSR LINKAGE 
060004 ADD #2,4(SP) BUMP RETURN ADDRESS 
MOV 177776, -(SP) 3; PUSH 179776 ON STACK 
JSR PC, $TYPE SS CALL TYPE MACRO 
8: -WORD OQ 
10$: TSTB.—s SFFLG i¢SHOULD REPORT FATAL ERROR? 
BEQ 12$ NOT: BR 
TST SENV : J RUNNING UNDER APT? 
BEQ 128 [IF NOT: BR 
11$: TST SMSGTYPE iF INISHED LAST MESSAGE? 
BNE 11$ SIF NOT: WAIT 
001212 MOV Q4(SP),SFATAL  ::GET ERROR # 
000004 ADD #2.4(SP) sBUMP RETURN ADDR. 
INC $MSGTYPE Sr TELe APT TO TAKE ERROR 
12$: CLRB = $FFLG S=CLEAR FATAL FLAG 
CLRB. —s- SLFLG >; CLEAR LOG FLAG 
CLRB ss SMFLG i CLEAR MESSAGE FLAG 
MOV (SP) +,R1 “POP STACK INTO R1 
MOV (SP) +,RO SPOP STACK INTO RO 
RTS PC RETURN 
SMFLG: .BYTE 0 *:MESSG. FLAG 
$iFLG: BYTE 0 SLOG FLAG 
SFFLG: .RBYTE 0 S FATAL FLAG 
wEVEN 
APTSIZE = 200 
APTENVY = 007 
APTSPOOL= 100 
APTCSUP = 040 


027752 


030042 
030044 


z €  )RMAT 


RE RO}=RS 


010046 


TER 


ROUTINES 


000022 
000022 
000022 
000022 


000022 


MACRO ¥04.00 4-APR=81 18:39:56 PAG 


- SBTTL 


G 
E 


i) 
42 


SAVE AND RESTORE RO=R5S ROUTINES 


SSSR ARSHKEHRAETARERARSEHARRAEREHEARAEEEARHEEREEHAREEHAHRHEHHE EHH EEE HEE 


S*SAVE RO-R5S 


3*CALL: 


* 


SAVREG 


7 *TOP=--(+16) 
pe +2—---(+78) 
Ie +4---R5 
be +6=--R4 
7* +8=--R3 
i*+10---R2 
p#+12==-R1 
1#+14=--RO 


SSAVREG: 


3 *RESTORE RO-R5 


s*CALL: 
* 
$RESREG: 


RESREG 


RO,-(SP) 
RT, ACSP) 


R5,-(SP) 

2eCSP) ,~(SP) 
22(SP) ,-(SP) 
éc(SP).,+(SP) 
22(SP) ,=(SP) 


(SP) +,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP) +,22(SP) 
(SP)+,R5 
(SP) +,R4 
(SP)+,R3 
(SP) +_,R2 
(SP)+,R1 
(SP)+,RO0 


SS RESTORE: PC 
7 7RESTORE PS 
3 ;RESTORE PC 
7 RESTORE PS 
3iPOP STACK 
zzPOP STACK 
7zPOP STACK 
:7POP STACK 
szPOP STACK 
7¢POP STACK 


Z*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
MAIN FLOW 
MAIN FLOW 
CALL 

CALL 


OF CALL 

OF CALL 

OF MAIN FLOW 
OF MAIN FLOW 
INTO R5 

INTO R4 

INTO R3 

INTO R2 

INTO R1 

INTO RO 


eens 
tee newer eeinneenncejuen 


030130 


011646 
016666 
000002 


030070 


026444 
025004 
024714 


030010 


000002 


030102 


000004 


000002 


0 ¥04.00 
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.SBITL TRAP DECODER 


- ERE ERRARRAEAERSEEEREAAREARAEKHREREREHREREKRHRE RARE EHAEARAKARA Ee 


S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “'TRAP'’ INSTRUCTION 
SAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


Z*OF THE DESIRED ROUTINE. 
2*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 22 SAV 
MOV 


THEN USING THE ADDRESS OBTAINED IT wILi 


VE _RO 
:GET TRAP AQORESS 


2(5P) RO 
TST -(RO) + BACKUP BY 2 
MOVB (RO) .RO 7 4GET RIGHT BYTE OF TRAP 
ASL RO sPOSITION FOR INDEXING 
MOV SS INDEX TO TABLE 


$TRPAD (RO) RO 
RO 33G0 TO ROUTINE 


zzTHIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,-(SP) 3sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) siMOVE THE PSW DOWN 
RTI isRESTORE THE PSw 
-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
7*BY THE ‘'TRAP'' INSTRUCTION. 


: ROUT INE 

$TRPAD: .WORD  $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1 (104401) 
$TYPOC ::CALL=TYPOC TRAP+2(104402) 
$TYPOS ::CALL=TYPOS TRAP+ 3(104403) 
$TYPON ::CALL=TYPON TRAP+4 (104404) 
$TYPDS ;;CALL=TYPDS TRAP+5 (104405) 
$GTSWR ::CALL=GTSWR — TRAP+6 (104406) 
$CKSWR ::CALL=CKSWR —- TRAP+7(104407) 
$RDCHR <:CALL=RDCHR _TRAP+10(104410) 
$RDLIN ::CALL=RDLIN _TRAP+11(104411) 
$SAVREG ::CALL=SAVREG TRAP+12(104412) 
$RESREG ::CALL=RESREG TRAP+13(104413) 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOFT-SwWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE RO-R5 ROUTINE 

RESTORE RO-R5 ROUTINE 


CRM BO RMOS5/ 4/2 
POWER DOWN AND 


FORMATTER 
UP ROUT 


INES 


2737 030276 
2737 900340 


017746 150766 
010637 030302 
ae 030204 


012737 030276 


005237 030502 
012677 150720 


012737 030132 
012737 000340 


MACHO 


000024 
000026 


000024 


000024 


000024 
000026 


120 
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-SBITL POWER DOWN AND UP ROUTINES 


RARER ARARERARAEARAKRERESEAARERERERATHAEAHRARERERKAEP RAH HRS RREE HEHE Ee 


ZPOWER DOWN ROUTINE 


$PWRDN: MOV #$ILLUP, a#PWRVEC tit FOR FAST uP 
MOV #340, aaPWRVEC+2 ;:PRIO:7 


MOV RO,-(SP) 


+sPUSH RO ON STACK 


’ 33PUSH R1 ON STACK 


33PUSH R2 ON STACK 


MOV R3,-(SP) 77PUSH R3 ON STACK. 

MOV R4,-(SP) 77PUSH R4& ON STACK 

MOV R5,-(SP) 77PUSH RS ON STACK 

MOV @SWR,- (SP) 2+ PUSH @SWR ON STACK 

MOV SP, SSAVRO 73 SAVE SP 

er #$PWRUP, @APWRVEC 3zSET UP VECTOR 

HAL 

BR 72 3: 2HANG UP 
TITER AAA CAE R RRR ERE EEE EERE AERA RAEA KEKE EHEAKAHHEREAERRHERE RED Oe 
sPOWER UP ROUTINE 
$PWRUP: MOV #$ILLUP.O#PWRVEC a FOR FAST DOWN 

MOV $SAVR6, §P 2eGET SP 

CLR $SSAVR6 ;;WAIT LOOP FOR THE TTY 
1$: INC $SAVRE6 SiWAIT FOR THE INC 

BNE 1$ i WORD 

MOV (SP)+,aSWR :zPOP STACK INTO @SWR 

MOV (SP)+,R5 7zPOP STACK INTO R5 

MOV (SP) +,R4 ::POP STACK INTO R4 

MOV (SP)+,R3 ::POP STACK INTC R3 

MOV (SP)+,R2 3:POP STACK INTO R2 

MOV (SP) +,R1 +¢POP STACK INTO R1 

MOV (SP)+,RO 3;POP STACK INTO RO 

MOV #SPWRDN, @APWRVEC™ gpSET - THE POWER DOWN VECTOR 

MOV #340, AAPWRVEC +2 ::PRIO:7 

TYPE seuEA THE POWER FAILURE 
$PWRMG: .WORD POWER FAIL MESSAGE POINTER 


$POWER 
MOV (PC) +, (SP) 
$PWRAD: .WORD S13 
SILLUP: HALT 
BR 


$SAVR6: 0 


SRESTART AT ST3 
RESTART ADDRESS 


3 POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
=PUT THE SP HERE 


$POWER: .ASCIZ <CRLF>/* POWER weit 


-EVEN 


PEPER ROMP TERED = @ 2 ee 
WONA AK WP OO OO NO AP Ww +O OO yO Owe 


30 
33 
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ZDIGITAL EQUIPMENT CORP. 
ZMAYNARD, MA 01754 
ZAUTHOR(S): JIM LACEY/CHUCK HESS 
ZREVISED BY: MIKE LEAVITT 11-APR-80, 27-MAR-81 
CD IOIIIOIOII II IUIUIIIOIOIUIIOIUIOIOIIOIUIOIUIOIOIOIUIOIUIOIIOIOIOUIUIOIIIOIOIIOIOI I ttt 
STORAGE FOR RMDS, PMER! , RMER2, AND RMMR2 ON AN ERROR ''2"' 
ZRMERRS+2 = RMER1 
TRMERRS+4 = RMER2 
SRMERRS+6 = RMMR2 
030320 000000 000060 000000 RMERRS: .WORD 0.0.0.0 
;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
:DRVACT=0 IF DRIVE IS IDLE 
SDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
SDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
030330 000 DRVACT: .BYTE 0 :DRIVE 9 
030331 000 “BYTE 0 SDRIVE 1 
030332 000 "BYTE 0 SDRIVE 2 
030333 000 “BYTE 0 ZDRIVE 3 
030334 000 “BYTE 0 SDRIVE 4 
030235 000 "BYTE 0 :DRIVE 5 
030336 000 "BYTE 0 IDRIVE 6 
030337 000 “BYTE 0 :DRIVE 7 
; TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
:DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
SDRVSTA>O IF DRIVE IS ONLINE 
ZDRVSTA<O IF DRIVE IS UNSAFE 
030340 000 DRVSTA: .BYTE 0 :DRIVE 0 
030341 C00 “BYTE 0 SDRIVE 1 
030342 000 ‘BYTE 0 [DRIVE 2 
030343 000 “BYTE 0 SDRIVE 3 
030344 000 “BYTE 0 IDRIVE 4 
030345 000 “BYTE 0 :DRIVE 5 
030346 000 «BYTE 0 DRIVE 6 
030347 000 “BYTE 0 :DRIVE 7 
:TABLE OF DRIVE TYPES (DRVTYP=8 BYTES 
;DRVTYP=0 IF DRIVE IS NONEXI STENT (DRVSTA=0, ALSO) 
SDRVIYP=7 IF DRIVE IS RMOS *xxexs 
TDRVTYP=5 IF DRIVE IS RMO2 txxxxs 
SDRVTYP=4 IF DRIVE IS RMO3 


JER 
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(REV 6.5) 19 


-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 


INEW DRIVE TYPE ID FOR RMO2 «*enewenne 
210-AUG“77 sex eee 

210-MAR=78 THE SC, SC5 CHANGES 

=NEW DRIVE TYPE ID FOR RMOS «xuxnnnnns 


21980 wteneekn nee 


COPYRIGHT (C) 1977,1981 
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2 sDRVTYP==1 IF NOT RMO5/3/2 
52 030350 000 DRVTYP: .BYTE 0 sDRIVE 0 
55 030551 000 BYTE. @ zDRIVE 1 
030352 000 arte 0 DRIVE 2 
030353 -BYTE 0 sDRIVE 3 
030354 evte - 0 DRIVE 4 
030355 000 BYTE . OD sDRIVE 5 
030356 000 -BYTE 0 sDRIVE 6 
56 030357 000 -BYTE 0 DRIVE 7 
57 TABLE OF DUAL PORT INITIALIZATION INDICATORS 
58 zDPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
in :DPINT<O IF INITIALIZATION IS IN PROGRESS 
61 030360 000 DPINT: .BYTE 0 DRIVE 0 
64 030361 000 ; <OYTE. 0 DRIVE 1 
030362 000 BYTE 0 DRIVE 2 
030363 000 OYTE -0 sDRIVE 3 
030364 000 BYTE . 0 sDRIVE 4 
030365 000 BYTE QO sDRIVE 5 
030366 000 BYTE <0 :DRIVE 6 
65 030567 000 -BYTE 0 DRIVE 7 
66 TABLE OF PENDING DUAL PORT REQUESTS 
67 :DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
= zsDPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
70 030370 000 DPROS:  .BYTE 0 DRIVE 0 
73 030371 000 -BYTE 0 DRIVE 
030372 000 BYTE 0 DRIVE 2 
030373 0 BYTE 0 sDRIVE 3 
030374 000 OYTe 9 DRIVE 4 
030375 000 -BYTE 0 DRIVE 5 
030376 000 BYTE =O DRIVE 6 
* 030377 000 sBYTE= 0 sDRIVE 7 
‘3 : TRANSFER et FLAG (TRNSWT=1 WORD) 
76 HIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
a4 pa OF THE I/O OPERATION. 
iS 030400 000000 TRNSWT: .WORD 0 
81 3SEARCH WAIT KEYS (SRCHWT=1 WORD) 
82 7THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
83 3THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
84 REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
H EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O. 
i 030402 000000 SRCHWT: .WGRD 0 
89 =RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
90 sACTDRV=0 IF DRIVER IS INACTIVE 
4 “AC TDRV>0 IF DRIVER IS ACTIVE 


5 030404 000 ACTDRV: .BYTE 0 
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ee TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTS TRDO IF SOFTWARE TIMER ROUTINE IS ACTIVE 


930405 000 ACTSTR: .BYTE 0 


UNLOAD FLAG (ULDFLG=8 BYTES) 
;ULDFLG=Q IF NO UNLOAD COMMAND 
;ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE 


—_ 4 os st 
SssMesers © 


030406 000 ULDFLG: .BYTE 0 DRIVE 0 
030407 000 -BYTE 0 :DRIVE 

030410 000 BYTE 0 iDRIVE 2 
030411 000 ByTr 0 sDRIVE 3 
030412 000 BYTt QO sDRIVE 4 
030415 000 we: "9 :DRIVE 5 
030414 000 -BYTE 0 DRIVE 6 
030415 000 BYTE 0 DRIVE 7 


SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
7SAVEFG <O IF SAVE THE RH/RM REGISTERS WHEN THE 
;OPERATION IS COMPLETED AS PER (DPB+14). 
3 SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
3 (DPB+14), AFTER AN ERROR. 


030416 000000 SAVEFG: .WORD 0 


SEEK FLAG (SEEKFG=1 WORD) 
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
:FOR A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD THE WINDOW 


030420 177777 SEEKFG: .wORD <1 


FWHH-OVONAUS WHO 


RH RH RS 8 5 st ss tt SH 
SE ne Se a ae 


7 TIMEOUT TABLE (TIMER=8 WORDS) 
8 THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
0 030422 177777 TIMER: .WORD -~1 DRIVE 0 
3 030424 177777 .WORD -1 DRIVE 1 
030426 177777 .WORD 1 DRIVE 2° 
030430 177777 WORD -1 sDRIVE 3 
030432 177777 WORD =1 DRIVE 4 
030434 177777 .WORD -1 DRIVE 5 
030436 177777 .WORD -1 DRIVE 6 
ae 030440 177777 WORD 1 ZDRIVE 7 
135 DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
136 ;DTUW<O IF NO DATA TRANSFER UNDERWAY 
ik td ;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
139 030442 177777 DTUW: .WORD -1 
& 
141 ZATTENTION BITS TABLE (ATABIT=8 BYTES 
142 7 THIS TABLE CONTAINS THE CORRESPOND ING BLT To EACH DRIVES 


145 ATTENTION BIT 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 SEQ 0114 
144 
145 030444 001 ATABIT: .BYTE 1 ;DRIVE 0 
146 030445 602 «BYTE 2 ZDRIVE 1 
147 030446 004 .BYTE 4 DRIVE 2 
148 030447 010 -BYTE 10 DRIVE 3 
145 030450 020 .BYTE 20 :DRIVE 4 
150 030451 040 BYTE 40 DRIVE. 5 
151 030452 100 -BYTE 100 DRIVE 6 
i 030455 200 BYTE 200 ;DRIVE 7 
154 NUMBER OF 'MASSBUS CONTROL PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
133 : CALLING IT FATAL (MCPEMX=1 WORD) 
1ee 030454 000003 MCPEMX: .WORD 3 
159 STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
160 RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 
162 030456 176700 RMADR: .WORD 176700 
i €30460 000254 000240 RMVEC: .WORD 254,5%32. 
168 ;MAXIMUM SEARCH FOR I/O WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
Ls 030464 000005 MXWNDW: .WORD 5 
al DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
173 000000 RMCS1 =0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0) 
174 000002 RMWC = 2 WORD COUNT REGISTER (NOT A DRIVE REG) 
175 000004 RMBA = % :UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
176 000006 RMDA = 6 DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 
177 000010 RMCS2 = 10 :CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
178 000012 RMDS = %2 DRIVE STATUS REGISTER (DRIVE REG 1) 
179 000014 RMER1 = 14 en REGISTER #1 (DRIVE REG 
180 000016 &: % TTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
181 000020 RMLA = TOUR AHEAD REGISTER (DRIVE REG. 7) 
182 022 RMDB = Ze “DATA BUFFER REGISTER (NOT A DRIVE REG.) 
183 000024 RMMR1 = sMAINTAINABILITY REGISTER (DRIVE REG. 3) 
184 000026 RMDT = 26 :DRIVE TYPE REGISTER (DRIVE REG. 6) 
185 000030 RMSN = 30 ;SERIAL NUMBER REGISTER (DRIVE REG. 10) 
186 000032 RMOF =. 32 OFFSET REGISTER (DRIVE REG. 11) 
187 000034 RMDC = 34 DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
188 006036 RMHR = 36 :DUMMY ADDRESS REGISTER (DRIVE REG. 13) 
189 000040 RMMR2 = 40 “MAINTENANCE REGISTER #2 
190 000042 RMER2 == 42 ERROR REG'STER #2 (DRIVE REG. 15) 
191 000044 RMEC1 = 44 SECC POSITION REGISTER (DRIVE REG. 16) 
138 000046 RMEC2 = 46 SECC PATTERN REGISTER (DRIVE REG. 17) 
1 .SBITL RH/RM DRIVER INITIALIZATION CODE 
200 THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
201 AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
202 z:TO THE PROPER STATE FOR EACH DRIVE. 
o NOTE: THIS ROUTINE CALLS DRVINT 
205 CALL 


207 ; JSR PC,RMINIT 
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RH/RM DRIVER INITIALIZATION CODE 


208 : RETURN 


209 : 

sy ZNOTE: THE *P* OR ‘L* CLOCK MUST BE STARTED 

212 

215 030466 104412 RMINIT: SAVREG sSAVE RO = RS 

214 930470 013746 177776 MOV PS,-(SP) . gSAVE THE PRESENT PROCESSOR SIATUS 
215 030474 012737 000240 177776 MOV #<5432.> »PS ZCHANGE THE PRIORITY TO 5 
216 030502 004737 036144 JSR PC, CLRQUE sCLEAR ALL REQUEST QUEUES 
217 030506 012701 030320 MOV #RMERRS RI sFIRST ADDRESS TO BE CLEARED 
218 030512 012702 030420 MOV #SEEKFG,R2 sLAST ADDRESS TO BE CLEARED 
219 030516 005021 1$: CLR (R1)+ ; CLEAR 

220 030520 020102 CMP R1,R2 zARE WE DONE? 

221 030522 105775 BLO 1$ ;BR IF NO 

222 030524 012702 030442 MOV #DTUW,R2 ;LAST ADDRESS 

223 030530 012721 177777 2$: MOV #-1,(R1)+ a 

224 030534 020102 CMP R1,R2 ONE ? 

225 050536 101774 BLOS e$ ‘POOP IF 

226 030540 005037 030340 CLR DRVSTA :SET ALL DRIVES TO OFFLINE 
227 030544 005937 030342 CLR DRVSTA+2 

228 030550 005037 030344 CLR DRVSTA+4 

229 030554 005037 030346 CLR DRVSTA+6 

230 030560 013703 030460 MOV RMVEC,R3 sSETUP THE RH/RM VECTOR 

231 030564 012723 033114 MOV #ISR,(R3)+ 

232 030570 013713 030462 MOV RMVEC +2, (R3) 

233 030574 013704 030456 MOV RMADR ,R4 :FIRST ADDRESS OF RH/RM 

234 030600 012764 000040 000010 MOV ACLR,RMCS2(R4) ;MASSBUS INIT 

235 030606 005001 CLR R1 iSTART WITH DRIVE 0 

236 030610 004037 030700 3$: JSR RO, DRVINT sINIT THE DRIVE 

237 030614 000401 BR 4$ :"DVA" NOT SET OR PARITY ERROR 
238 030616 000402 BR 5$ ZNORMAL RETURN 

239 030620 105061 030340 4$: CLRB DRVSTA(R1) zSET DRIVE STATUS TO OFFLINE 
240 030624 005201 5$: INC R1 :GO TO NEXT DRIVE 

241 050626 042701 177770 BIC #°C7,R1 :MASK OUT UNUSED BITS 

242 030632 001366 BNE 3$ ;BR IF MORE DRIVES TO GO 
243 030634 012701 000007 MOV #7,R1 sSTART WITH DRIVE 7 

244 030640 005037 177776 CLR PS CLEAR THE PROCESSOR STATUS 
245 0350644 105761 030360 6$: TSTB DPINT(R1) sWAITING FOR DRIVE TO SWITCH PORTS ? 
246 030650 001405 BEQ 8$ :BR NOT WAITING 

247 030652 004737 035600 JSR PC; SETLIE 7SET INTERRUPT 

248 030656 105761 030360 7$: TSTB DPINT(R1) “DRIVE SWITCHED PORTS ? 

249 030662 001375 BNE 7$ ‘BR IF NOT 

250 030664 005301 8$: DEC R1 =G0 TO THE NEXT DRIVE 

251 030666 100366 ee = ia 6$ ZCHECK NEXT DRIVE 

252 030670 012637 177776 MOV (SP) +,PS ZRESTORE THE PROCESSOR STATUS 
253 030674 104413 j RESREG :RESTORE RO - R5 

Sze 030676 000207 RTS PC BYE-BYE 

256 ZDRIVE INITILIZATION ROUTINE 

257 ZTHIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

258 zAN RMO5/3/2. IF IT IS, A ‘'READ-IN PRESET’ IS ISSUED AND FMT16 
259 71S SET TO A ‘l"'. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 
260 s INSURE THEY ARE ALL ON A ‘‘l'’. AND DEPENDING ON THEIR STATE, 
261 sDRVSTA IS SET TO THE PROPER CONDITION. 

262 3 CALL 

263 Py MOV #DRYNUM,R1 ZDRIVE NUMBER TO R1 


264 : MOV RMADR ,R4 ZUNIBUS ADDRESS OF RH/RM (RMCS1) 
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265 : J$f RO DRVINT sCALLED BY A J 

266 2 _ RETURN! S ERROR ocuARee (PARI TY> 

247 ; RETURN [NORMAL RE TURN 

58 

270 030700 010546 e DRVINT: MOV RS,-(SP) ZSAVE RS 

271 030702 105061 0630349 CLRB DRVSTA(R1) START DRIVE STATUS AS OFFLINE 
272 030706 105061 050250 CLAS DRVTYP(R1) . S CLEAR THE DRIVE TYPE INDICATOR 
273 030712 105061 030406 CLES ULDFLG(R1) cCLEAR THE UNLOAD FLAG 

274 030716 010164 0690010 MOV R71, RMCS2 (RS) SELECT A DRIVE 

275 030722 112764 000111 900600 “OVS #117, RMCS1(R4) 7D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
276 030730 032764 010000 900010 BIT #BITIZ.RMCS2(R4) sNONEXISTENT DRIVE? 
277 030736 001403 SEQ 1$ z 

278 030740 004737 035600 JSR Pt SET If 3GO SET “‘IE*’ WITHOUT A ‘'TRE'’ 
tas 030744 000520 BR 4$ SLEAVE THIS ROUTINE 

281 030746 105067 030340 1$: CLRB DRVSTACR1) sSET DRIVE STATUS TO OFFLINE 
282 030752 032764 004000 000000 BIT #B17T17,RMCS1 (RS) ;SEE IF DRIVE AVAILABLE 
283 030760 001512 BEQ 4$ :BR IF DRIVE NOT AVAILABLE 
284 030762 004037 035110 JSR RO.RD.RM ZREAD THE DRIVE TYPE REG. 

285 030746 000026 . RMDT 

286 030770 031210 5$ ZERROR RETURN ADDRESS 

287 030772 012605 MOV (SP)+,R5 PUT DRIVE TYPE IN RS 

288 030774 112761 000004 030350 MOVB #4 .DRVTYP(R1) :SET RMO3 INDICATOR 

289 031002 022705 020024 CMP #20024 ,R5 :SINGLE PORT RMO3 ? 

290 031006 001431 BEG 2$ “BR IF YES 

291 031010 022705 024024 CMP #26024,R5 ;DUAL PORT RMO3 ? 

292 031014 001426 BEG 2$ sBR IF YES 

293 031016 112761 000005 030350 MOVB #5, DRVTYP(R1) :SET RMO2 INDICATOR 

294 031024 022705 920025 CMP #20025,R5 SINGLE PORT RMO2 ? 

295 031030 001420 BEQ 2$ ;BR IF SO 

296 0351032 022705 024025 CMP #24025.R5 :DUAL PORT RMO2 ? 

297 031036 001415 BEG 2$ ;BR IF SO 

298 031040 112761 000007 030350 MOVB #7,DRVTYP(R1)  :SET RMOS IND! CATOR 

299 031046 022705 020027 CMP #20027,R5 SSINGLE PORT RMOS ? 

300 031052 001407 BEQ 2$ :BR IF YES 

301 031054 022705 024027 CMP #26027,R5 DUAL PORT RMOS ? 

302 0310690 001404 BEG $ [BR If YES 

303 031062 112761 177777 030350 MOVB #-1 ,DRVTYP(R1) ;SET If )ICATOR TO “OTHER’ 
Se 031070 000446 BR 4$ ZEXIT 

306 031072 012746 000121 2$: MOV #121 ,-(SP) 3DO A ‘'READ-IN PRESET" 

307 031076 004037 035270 JSR RO,¥RT.RM 

308 031102 0 RMCS1 

309 031104 031210 $ 

310 031106 012746 010000 MOY el al SET FMT16=1 

311 031112 004037 035270 JSR RO,WR 

312 031116 000032 RMOF 

313 031120 031210 5$ 

314 031122 004037 0351710 JSR +» RO,RD.RM READ RMDS 

315 oat igs 000012 RMDS 

316 0311 031210 5$ 

317 031132 012605 MOV (SP)+,R5 7 AND gee IT IN R5 

318 031134 100015 BPiL 3$ [BR IF ATA=0 

319 031136 116164 030444 000016 MOVB sige | EL RMAS (RG) ; CLEAR ATTENTION BIT 
320 031144 004037 035110 JSR RO,RD.R :FIND OUT WHY ATA=1 

321 031150 000014 RMER1 
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VOKSANS FSSEX 


Nmrnn--- 


§ 
oO 
BS 


x 


OOCOCVOOCOCDVCCOCOCCoOo 
No 


SSESes 
RNSSHSS Na roe 
o= 


le a a ed ed td = td od = 


SR ERRER EE 
@IORAR ASSO 
LALLA ALANNA IAA 


be koe 
NS 


FORMATTER 


031270 
operse 


00004 
112761 
000407 


005105 
042705 


000200 


013746 


288 

_ 
RBsSRoas 
AW RG o 
WENRSNAS 


MACRO 


177777 030340 


167077 
000001 030340 


177776 
030462 177776 
000001 030404 
000016 


030456 
030340 


030406 
030360 
030700 
030340 
030370 


000010 
036242 


000103 000002 


177777 030406 
030330 


031506 
120000 000016 
032564 


ee. 


3$: 


S$: 
5$: 


6-4PR-81 


(SP)« 


3$ 
#-1 ,DRVSTA(R1) 
4$ 


- ¢ 10 
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31S IT UNSAFE? 
7BR IF NOT 
ae INDICATOR 


CHECK MOL, = DRY, AND VV 


R5 
car UF ie: B1708:81107 !81 106> 


4 
#1 ,DRVSTA(R1) 
(ROQ)+ 


(SP)+,R5 
RO 


BR IF MOL, DPR, DRY, OR VV IS CLEAR 
[SET DRIVE STATUS TO ONLINE 

STEP OVER THE ERROR RETURN 
TRESTORE RS 


TEXIT 


ZREQUEST PRE-PROCESSOR=HANDLES SUBSYSTEM REQUEST 


CALL 


Behe Be Be Oe 


2s: 


4$: 


JSR 
PNTADR 
RETURN] 
RETURN2 


RO,RMOS 


PS, °(SP) 
RMVEC+2,PS 
#1 ,ACTDRV 
(RO) ,R2 
16(R2) 
(R2) ,R1 
RMADR , RS 
pee abana 
ULDFLG(R1) 
3$ 
DPINT(R1) 
5$ 
RO,DRVINT 
4% 
aaa 


6 
DPROS(R1) 
5$ 


R1,RMCS2(R4) 


RO, DRVQUE 
9$ 
ee 


#-1 ,ULDFLG(R1) 


DRVACT(R1) 
8$ 
PC,OPT 


#81715!B1T13,76(R2) 
8$ ; 


PC.C17 


CALL THE RMOS DRIVER 

SADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS FULL 

RETURN HERE IF REQUEST IS IN QUEUE OR THERE 


71S AN ERROR CONDITION 


SAVE THE CALLING STATUS 

;DON"T ALLOW ANY RM INTERRUPTS 

zSET ‘ACTIVE DRIVER'’ FLAG 

SAVE RO - R5 

:PICKUP THE DRIVE PARAMETER BLOCK POINTER 
;CLEAR THE STATUS/ERROR INDICATOR 


sPICKUP THE DRIVE NUMBER 
sUNIBUS ADDRESS OF RMCS1 
ie DRIVES STATUS 

BR IF ONLINE 
[UNLOAD COMMAND IN QUEUE? 


SBR IF YES 
i ies rs INIT THE DRIVE 


7GO INIT. THE DRIVE 
sERROR RETURN 
:1S DRIVE STATUS ONLINE? 


[BR IF NOT 
sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BR IF YES 

;SELECT THE DRIVE 

:PUT THIS REQUEST IN QUEUE 

sQUEVE IS FULL 

31S THIS REQ. FOR AN UNLOAD? 

:BR_IF NO. 

[SET THE ‘UNLOAD IN QUEUE" FLAG 

31S THIS DRIVE ACTIVE? 

BR IF YES 

CALL THE OPTIMIZER 


in SET THE "UNLOAD IN QUEUE'’ ERROR FLAG 
sEXIT 
:GO HANDLE THE PARITY ERROR 


379 031376 
380 031400 
381 031404 
382 031406 
383 031412 


387 031426 
383 


401 031504 


442 031640 


104412 


000443 


122762 
002403 
004737 
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36242 
000100 
035600 
030340 


0000 
030380 


100002 
110000 


030404 
177776 


177776 


036316 


000010 
000111 
004006 
030340 
036340 
140000 
030340 


110000 


000150 
032150 
030442 
030420 


MACR 


000016 


000016 
000016 


030402 


000000 


009000 


000016 


000016 


000002 


6$: 


7$: 
8$: 


9$: 
10$: 


CALL 


OPT: 


1$: 


cs: 


3$: 


MOV 
JSR 


SAVREG 
MO 


D 
1 18:39:56 PAGE 


8$ 

RO. DRVQUE 
3h 

#81706, (R4) 
8$ 

PC SET IE 
8s 
DRVSTA(R1) 
7$ 


#BiTIS!BIT14, 16(h2) 


- gagteghia 


$ “BR IF 
#B1T15!B1T01,16<(R2) 
$ :GO TOE 
#B81T15!BIT12,16(R2) 
ESTO 


(RO) + 
10$ 


(RO) + 
ACTDRV 
(SP)+,PS 
RO 


1 
4 


Q 
5 


-7 


PUT REQUEST IN QUEUE 
Te Bl 1S FULL 


ves Olt séT 7 
ZSET IME INTERRUPT 
= IF er OFFLINE OR UNSAFE 
R IF UNSAFE 
SET OFFLINE ERROR INDICATOR 
3 SEE JF OFFLINE OR NONEXISTENT 
REPORT DRIVE NONEX! STENT 


XIT 
sDRIVE IS UNSAFE 
RE RO ~ RS 


sSETUP FOR NORMAL RETURN 
FINISH UP, THEN EXIT 
ZRESTORE RO = R5 

CORRECT THE RETURN ADDRESS 
7CLEAR "‘ACTIVE DRIVER’ FLAG 
RETURN ‘PS'’ TO USER LEVEL 
RETURN TO CALLER 


;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


A#DRVNUM,R1 :DRIVE NUMBER TO R1 
PC,OPT 7SETUP A COMMAND 

ZSAVE RO - RS 
PS ,-(SP) ;SAVE PROC. STATUS 
ATABIT(R1),SRCHWT ;CLEAR LA SEACH FLAG 
DPRQS(R1) ZRESET THE PORT REQ FLAG **** 
PC ,GETREQ :GET ‘DPB’ POINTER OF REQUEST 
R2 Hs pe igg’ i REQUEST IN QUEUE? 
7$ =NO--BR T XIT 
R1,RMCS2 (RS) ;LOAD THE OORIVE ADDRESS *****«» 
#117, RMCS1(R4) ;CLEAR be’ a’ IVE 
#B17T11,RMCS1(R4) ‘A SET 7 rs 
5$ 2T0 PORT" REQUEST iF NOT 
Hoe ee DRIVE ONLINE? 
PCF =NO--REMOVE REQUEST FROM QUEUE 


eerie 


#150,2(R2) 
3$ 

PL, C14 

8$ 

DTUW 

4$ 

SEEKFG 


QUE 
WBiT15‘BITI4, 16(R2) 


8 :B 
#81115!B1T12,16(Re) 
8$ 


sSET OFFLINE STATUS/ERROR INDICATOR 
DRIVE UNSAFE ? 
R TO EXIT IF NOT 

SET UNSAFE STATUS/ERROR INDICATOR 


wr 
an 


3BR TO EXIT 
a REQUEST FOR I/0? 


¥ 
‘BR to FAIS COMMAND INITIATOR 
DATA TRANSFER UNDERWAY ? 


ZYES--GO START A SEARCH 
:DO IMPLIED SEEKS? 





ZRMLBO 


RMOS / 


446 031646 
445 031650 
446 051654 
547 031656 
448 031662 
449 0516646 
450 031672 
451 031674 
452 031676 


473 031734 
476 031740 
475 051744 


‘ 032 
495 032036 
496 

497 032042 


500 032056 


3/2 FORMATTER 
RH /RM DRIVER INITIALIZATION CODE 


MACRO vO4.00 


£ 10 
4-4PR-B1 18:39:56 PAGE 45-8 


100003 RPL 4$ 7NO, DO A SEARCH 
006737 631734 JSR PC.CI1 7 START A DATA TRANSFER 
000423 88 as 
004737 032042 48: JSR PC ,C13 3 START A SEARCH 
000420 6R &$ GO TO THE EXIT 
112761 177777 €30370 S$: MOVB #-1 ,DPROQS(R1) SET PORT REQUEST INDICATOR 
010103 MOV R1,R3 :SET UP TO ADDRESS WORDS 
303 ASL R3 CONVERT TO WORD INDEX 
012763 035230 030422 MOV 715000. .TIMER(R3) 3START 15. SECOND TIMER 
000402 BR 7 sEX 
004737 032564 6$: JSR C17 = PROCESS THE PARITY ERROR 
032714 000100 7$: BIT waite, (RA) sSEE IF ‘IE* ALREADY SET 
001002 BNE 8$ SBR IF SET 
006737 035600 JSR OC SE TIE SSET ‘‘IE'' WITHOUT A ‘‘TRE‘' 
012637 177776 8$: MOV (SP)+,PS sRESTORE PROC. STATUS 
104413 RESREG SRESTORE RO = R5 
000207 RTS PC 
Z COMMAND INITIATOR 
SCALL 
3 MOV #DRVNUM,R1 sDRIVE eg a 
: MOV #DPB,R2 ZADDRESS OF DPB 
3 JSR PC,CI? :C1? 2 Cit, 13, OR C14 
: WHERE : 
Fi ‘Cli DATA TRANSFER 
P :C13=SEARCH Tere — DATA XFER 
: :CI4=NOT DATA TRANSFE 
737 036340 C}1 JSR PC ,POPQUE ZREMOVE REQUEST FROM ‘DRIVES WAIT'’’ QUEUE 
010237 030400 MOV R2, TRNSWT ZPUT REQ. IN TRANSFER WAIT QUEUE 
010203 MOV R2.R35 :DPB ADDRESS TO R3 
013704 030456 MOV RMADR ,RS :RMCS1 ADDRESS 
010164 000010 MOV R71, RMCS2(R4) iSELECT DRIVE 
062703 000004 ADD 44 ,R3 DESIRED WORD COUNT 
2704 000002 ADD #2,R4 zRMWC ADDRESS 
012324 MOV (R3)+,(RG)+ :LOAD WORD COUNT 
012324 MOV (R3)+,(R4)+ ;LOAD BUFFER ADDRESS 
012346 MOV (R3)+,-(SP) ;LOAD.SECTOR AND TRACK 
004037 035270 JSR RO,WRT RM CALL THE LOAD(WRITE) ROUTINE 
00 RMDA ZINDEX OF REGISTER TO LOAD 
032564 C17 ZERROR RETURN ADDRESS 
0123466 MOV {R3)+,=C(SP) ;LOAD CYLINDER ADDRESS 
004037 035270 JSR RO,WRT RM 
000034 RMDC 
032564 CI7 
016246 000002 MOV 2(R2) ,- CSP) ZLOAD "'COMMAND+GO'', ''A178A16"", SND 'PSEL* 
037 035270 JSR RO,WRT.RM 
RMCS1 
032564 CI. 
010137 030442 MOV R1,DTUwW sSET ‘DATA TRANSFER UNDERWAY" 
137 032526 JMP ci5 
013704 030456 cis MOY RMADR ,R4 :RMCS1 ADDRESS 
010164 000010 MOV R1,RMCS2(R4) SSELECT DRIVE 
016246 000012 MOV 12(R2) ,~(SP) SDESIRED CYLINDER ADDRESS 
004037 0352790 JSR RO,WRT RM 


ZRMLBO RMOS/ 3/2 
Re /RM DRIVER INITIALIZATION CODE 


RODD -3 3 a i er ss 3 
MOVODNAW ES wr -o GON 

Oo 

ww 

mw 

2 

& 

oO 


MAPA AAU Un Ut 


Q 
522 032164 


FORMATTES 


000010 
630464 
000040 
000011 
035270 
000131 
035270 
030444 
030456 
000019 
000002 
000131 


316286 pe gba 
006037 035270 
00006 


000105 
001007 

016246 900012 
004037 035270 


000115 
035110 


000001 
035270 
000167 


000117 
000103 


SS 
Poh 


000001 
050340 
000007 


So=s= 
a 

vw 

WO = OO Wh 


035270 


MACRO 


000001 


030402 


030330 
030406 


Ve VV 


1$: 
28: 


3t: 


4$: 


4-APR=-§81 


F 10 
78:39:56 PAGE 45-9 


10(R2) ,R3 sPICKUP SECTOR ADDRESS 

nee sRACKUP BY MAK. SEARCH FOR 1/0 WINDOW 

#32. ,R3 

R3,-(SP) (= COMBINE THE — SECTOR wl lH 

T1(R2).10SP) i THE DESIRED T 

RO WRT LRM SLOAD DESIRED TRACK @ SECTOR 

#131,-(SP) ;START A SEARCH 

RO.WRT RM 

=< salle ata sSET ‘’SEARCH WAIT’ KEY 

RMADR RS zRMCS1 ADDRESS 

R17, RMCS2(RS) sSELECT DRIVE 

2(R2) RS sPICKUP THE REQUESTED CGMMAND 

#731,R3 :IS IT A SEARCH COMMAND? 

1$ t6R IF NO 

TO(R2) ,-( SP) ;LOAD DESIRED TRACK & SECTOR 

RO, WRT RM 

2$ 7GO LOAD CYLINDER 

#105,R3 zIS IT A SEEK COMMAND 

3$ BR IF NO 

T2(R2) ,-(SP) ZLOAD DESIRED CYLINDER 

RO,WRT RM 

C16 : 

#175,R3 sIS IT AN "‘OFFSET'’ COMMAND? 

43% ;BR IF NO 

RO,RD.RM sMERGE THE OFFSET VALUE INTG RMOF 
: ;BUT DON'T CHANGE THE UPPER 

1(R2), SP) :BYTE WHEN LOADING THE 

RO, WRT RM SREGISTER (RMOF) 

C16 GO START THE COMMAND 

#107,R3 :1S IT A "'RECALIBRATE'’ COMMAND? 

C16 7AR Tf YES 

#117,R3 :1S IT A RETURN TO CENTER? 

C16 3BR IF 2. 

#103,R3 71S IT AN ‘'UNLOAD'’ COMMAND? 

5$ BR IF 

#1 ,DRVACT(R1) 7SET THE DRIVE ACTIVE INDICATOR 

DRYSTA(R1) PUT DRIVE STATUS TO OFFLINE 

#1 ULDFLG(R1) SET “UNLOAD IN PROGRESS'’ FLAG 

R3,7(SP) ;START THE ‘UNLOAD'* COMMAND 

RO,WRT RM 


G 10 
TRML BO RMOS/3/2 © ORMATTER MACRO y06.00 S=APR<B1 18:39:56 PAGE 65-10 
Re / RM DRIVER INITIALIZATION CODE 
558 032342 032564 C1? 
559 032344 900507 ; RTS PC sRETURN TO USER 
560 032346 122703 0001463 S$: (MPR #1463,R3 i IT a. “SET FORMAT’ COMMAND? 
561 032352 001014 BNE 6% RIF 
208 032354 004037 035710 J5R RO, RD.RM {READ Ihe OFFSET REGISTER 
563 032360 2 RMOF 
564 032362 032564 C1? 
565 032366 116266 000001 000007 MOVB 1(R2),10SP) -SCOMBINE “FMTI6'C' ECT’, AND HCI' 
566 032372 004037 035270 J5R RO,WRT.RM SLOAD "FMT16"', ‘eer, AND/OR "'HCI"'. 
567 032376 32 RMOF 
568 032400 032564 CI7 
507 032402 000436 BR 12$ 
570 032606 122703 000141 6$: CMPR #141,R3 1S IT A ‘GET REGISTER'’ COMMAND? 
571 032410 001023 BNE 10% ;BR IF NO 
572 032412 016203 000006 7$: MOV 6(R2) ,R3 POINTS TO 1ST ADDRESS OF WHERE 
573 :TO PUT THE REGISTER(S) 
574 032416 116237 000010 932434 MOVB- 10(R2),9% :INIT. THE INDEX FOR THE FIRST REG. 
575 032424 116205 000017 MOVB 11(R2),R5 : INDEX OF LAST REG. TO MOVE 
576 032430 004037 035110 8%: JSR RO,RD.RM “READ RH/RM REGISTER 
577 632434 000000 38: RMCS1 S INDEX OF REG. TO READ 
578 032436 052564 C17 
579 032440 012623 MOV (SP)+,(R3)+ GET THE CONTENTS OF RH/RM REG. 
580 032442 023705 032434 CMP 9t,R5 ;LAST REG. BEEN READ? 
581 032446 001414 BEG 12$ :GET OUT IF YES 
582 052450 062737 Q00002 032434 ADD #2,9$ S INCREASE THE INDEX BY 2 
583 032456 000764 BR gt =LOOP=-MORE TO READ 
584 032460 122703 000145 10$: CMPR 9145,R3 r1S IT A ‘SELECT DRIVE'’ COMMAND? 
585 032464 001405 BEQ 12% “BR IF YES 
586 032466 010346 11%: _ MOV R3,-(SP) LOAD THE COMMAND 
587 032470 004057 035270 JSR RO,WRT RM 
588 032474 000000 RMCS? 
589 932476 032564 C17 
590 032500 004737 036340 128: JSR PC ,POPQUE SREMOVE REQ. FROM QUEUE 
591 032504 052762 000200 000016 BIS #BITO7,16(R2)  ;SET THE ‘DONE’’ BIT 
592 032512 005737 030416 rst SAVEFG :SAVE THE RH/RM REGISTERS? 
593 032516 100002 BPL 13% BR IF NO 
594 032520 004737 035462 JSR PC, SVRH70 ;YES--GO SAVE THE REGISTERS 
f4 032524 000207 13$: RS Pe RETURN TO USER 
597 032526 006301 €i5: ASE RI 
598 032530 012761 023420 030422 MOV - #10000. , TIMER(R1) _gSTART 10. SECOND TIMER 
599 032536 006201 ASR RI 
600 032540 112761 000007 9050330 MOVB  — #1, DRVACTCRI) ZSET THE DRIVE ACTIVE 
ped 032546 000207 RTS PC sRETURN TO THE USER 
603 032550 010346 Clé: MOV R3,-¢SP) LOAD THE COMMAND 
604 032552 004037 035270 JSR RO, WRT .RM 
605 032556 000000 RMCS7 
606 032560 032564 C47 
peel 032562 000761 BR crs 
609 032564 032764 010000 000010 CI?: BIT #BITI2,RMCS2(R4) :DRIVE NON-EXISTENT ? 
613 032572 005702 1$: TST R2 sANYTHING IN QUEUE 
617 032574 001001 BNE ef 7BR IF QUEUE IS THERE 
618 032576 000207 RTS PC penne EXIT 


or 052600 O12762 104000 000016 2%: MOV #BIT15/B1T11,16(R2) SET "PARITY’’ ERROR INDI ATOR 


b¢ 





ie] 
Oo 
w 
Las) 
~N 
ae 
nN 


679 033050 
680 033054 
681 033060 
682 033066 
683 033070 
684 033074 
685 033100 
686 033104 
687 033170 
4588 033112 
689 


012746 
004037 
000000 


. RMOS/ 342 FORMATTER 
DRIVER INITIALIZATION COf 


Wi 


900111 
635270 


036222 


020400 


030400 
177777 


030350 
030370 


030400 
030442 


036316 


010000 
100002 
102000 


030442 
177777 


000 
177770 
177777 


000040 
036222 


035600 


030442 


000010 
000016 


000016 
030422 


030442 


000010 


030442 


000010 


63: 


7$: 


s 


a117 =< SP) 3D0 A “DRIVE CLEAR’ 
RO,WwAT RM 
PC,EMPTYO EMPTY THE QUEUE 


DPRGS(R1) 
ULDFLG(R1) 


sCLEAR THE PORT REQUEST FLAG 
CLEAR THE UNLOAD IN QUEUE FLAG 


DRVACT(R1) DRIVE IS IDLE 
R2, TRNSWT If THIS DRIVE HAD AN 1/0 REQUEST 
2$ 3 IN PROGRESS CLEAR ALL OF THE FLAGS 
TRNSWI 
4-1 ,DTUW 
PC 
SAVE RO = R5 
R] 
R3 
DRVACT(R1) sDRIVE ACTIVE? 
es :BR IF _IN ACTIVE 
DPRQS(R1) ;PORT REQUEST 
6$ ;BR_IF NOT 
TRNSWT ,R2 GET THE ‘‘TRANSFER WAIT'' QUEUE 
R1,DTUW ;DID THIS DRIVE HAVE AN I/0 IN PROGRESS? 
$ ABR TE YES 
PC. .GETREQ :GET THE DPB POINTER 
R2 ;QUEUE ENTRY FOR DRIVE ? 
5$ [BR IF NOT 
#BIT12,RMCS2(R4) z NBDE: SET: 2 
4$ R IF NOT 
— TIS!BITO1, 16(R2) tall "DRIVE NON-EXISTENT’ INDICATOR 


5 CONTI 
#BIT15!BIT10, 16(R9) 3SET "NON-CLEARABLE PARITY'’ ERROR INDICATOR 
#-1, TIMER(R3) ;STOP THE TIMER 


DRVACT(R1) SET “DRIVE ACTIVE’' TO IDLE 
DPRGS(R1) : CLEAR PORT REQUEST FLAG 
R1,DTUW 71S THIS DRIVE SETUP FOR A TRANSFER 
6$ IBR IF NOT 
4-1 ,DTUW ZRESET THE INDICATOR 
TRNSWT ZCLEAR THE TRANSFER QUEUE 
ULDFLG(R1) Z CLEAR UNL OAD FLAG 
#B1T12,RMCS2(R4)- "NED" SET ? 
R1 7 MOVE TO’ THE NEXT DRIVE 
#2,R3 
#*°C7,R1 
1$ ;BR IF MORE DRIVES 
#-1 ,DTUW INO DATA TRANSFERS UNDERWAY 
TRNSWT iCLEAR THE ‘TRANSFER WAIT" QUEUE 
PC, CLRQUE CLEAR ALL OF THE REQUEST QUEUES 
ACLR,RMCS2(R4) ;DO A MASSBUS INIT. 
8$ > CONT INUE 
PCLEMPTYQ :CLEAR THE DRIVE'S QUEUE 
DRVSTA(R1) :SET DRIVE TO OFFLINE 
DRVTYP(R1) :CLEAR THE DRIVE TYPE INDICATOR 
PC,SET.IE SET “TE’’ WITHOUT ‘‘TRE'’ 

pe Pah ag RO = R5 
PC RET URN 





CAML BO RMO5/5 
a / RM DRIVER 


733 266 © 
732 033279 


733 035274 
734 


735 033276 
736 033304 


033320 
740 033324 
741 
764 
765 
766 033326 
767 Oeatts 


/2 SORMATTER 
INITIALIZATION CODE 


112737 000001 


030456 
030442 


033156 
033326 


030404 


030330 
177777 


177777 
013702 030400 
030400 
052762 psa 


00001 
035110 


930616 
035462 
036376 
031506 


000113 
000207 
052762 100100 
036222 
035462 
040711 
000113 


“4 000016 
035710 


036406 


MACRO ¥06.00 


7 INTERRUPT 


030406 ISA: 


1 10 
S-APRH@B} 18:59:56 PAGE 45-12 


SERVICE ROUTINE 


~ 


#7, ACTDRY sSET “ACTIVE DRIVER FLAG 
SAVE RO = R5 

RMADR , RG ADDRESS OF RMCS1 
DTUw,R1 GET “DATA TRANSFER UNDERWAY’ INDICATOR 
1$ _ 7BR IF NO DATA TRANSFER UNDERWAY 
PC,1D 7CALL TRANSFER DONE 
PC,SC eCALL SPECIAL CONDITIONS 

RESTORE RO = R5 
ACTDRY 


7 TRANSFER DONE ROUTINE 


TD: 
030442 


030422 


000016 


23: 


000016 38: 


DRVACT(R1) 


ia daa 3NO DATA TRANSFERS UNDERWAY 
A aacclani CANCEL TIMEOUT 

TRNSWT ,R2 ;GET ''DPB'' ADDRESS FROM THE 
TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 
#81T07,16(R2) SET DONE 

R1,RMCS2(R4) :SELECT THE DRIVE 

RO,RD.RM ; TRANSFER ERROR(TRE=")? 
(SP) + 15--TREST ? 

3$ ;BR IF YES 

+ ial ‘ae Te ke THE RH/RM REGISTERS? 
PC, SVRH70 YE S=<SAVE THE REGISTERS 
PC, GETREQ ;GET DPB POINTER 

Re ZENTRY FOR DRIVE ? 

2$ PR IF NOT 

PC,OPT ;CALL OPTIMIZER 

PC RETURN 

A aia Big THE DRIVE 


#B1T15!BI1T06,16(Re2) 


SPECIAL CONDITION ROUTINE 


SCz 


PC ,EMPTYQ ;EMPTY THE 'DRIVE'S WAIT" 

PC, SVRH7C SAVE THE. RH/RM REGISTERS 
#40111, ¢R4) t ISSUE A ‘DRIVE CLEAR" 

#113, (R4) ; ISSUE A RELEASE TO THE DRIVE 
PC tRETURN 

RMAS(R4) ,R3 sg “'RMAS'" 

2$ R IF ANY ‘ATA' BITS SET 
RO,RD.RM Brab CONTROL AND STATUS REGISTER 
(SP) + SIS SEBS ST? 

1$ : YES, NO DRIVES TO CHECK 
RO,ES.SAV ;SAVE THE ADDRESS IN 'SESCAPE* 


iCLEAR “ACTIVE DRIVER" FLAG 
RETURN 


SET DRIVE ACTIVE INDICATOR TO IDLE 


:SET DATA ERROR FLAG 
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CZRMLBO RMO5/%3/2 FORMATTER MACRO y04.00 4=APR=81 7B:39:56 PAGE 45-13 
Gr/RM DRIVER INITIALIZATION CODE 


033354 104001 EMT 1 REPORT AN ILLEGAL [INTERRUPT 
7?4 033356 004757 (35600 JSR PC .SET.IE tSET INTERRUFT ENABLE 
775 033362 000207 1$: RTS PC RETURN 
776 033364 005046 2$: CLR -(SP) PROCESS ALL DRIVES THAT HAVE 
777 033366 110316 “OVB R3, (SP) TAN *'ATA’S1 
778 033370 012703 000001 MOV #1,R3 
ag 033374 005 CLR R1 
781 033376 030316 $¢3: BIT R3, (SP) sAlA=1? 
ree 033400 001005 BNE §¢t5 YES 
784 033402 005201 SC4: INC R1 sMOVE TO THE NEXT DRIVE 
785 033404 106303 ASiLB R3 
786 033406 001373 BNE $¢3 ;BR IF MORE TO CHECK? 
787 033410 005726 TST (SP)+ CLEAN OFF THE STACK 
- 033412 000207 RTS PC s;RETURN TO USER 
790 033414 105761 030360 SCS: TSTB DPINT(R1) ‘INITIALIZING THE DRIVE ? 
791 033420 001402 BEQ 1$ [BR IF N 
792 633422 000137 034340 JMP §¢13 ‘PROCESS THE DRIVE 
793 033426 105761 030370 1$: TSTB DPRQS(R1) PORT REQUEST OUTSTANDING ? 
794 033432 001402 BEQ 2$ [BR IF NOT 
795 033434 000137 034340 ‘IMP $13 START THE OUTSTANDING COMMAND 
796 033440 105761 030340 23: TSTB DRVSTA(R1) ;CHECK THE DRIVE STATUS 
797 033444 003023 BGT 4% 7BR IF ONLINE 
798 033446 105761 030406 TSTB ULDFLG(R1) UNLOAD IN PROGRESS? 
799 033452 003420 BLE 4$ :BR IF NOT 
800 033454 004737 036316 JSR PC, GETREQ :GET DPB POINTER 
801 033460 004737 035462 JSR PC,SVRH70 SAVE THE RH/RM REGISTERS 
802 033464 004737 034270 JSR PC,SC12 SAVE RMDS, RMER1, RMER2, AND RMMR2 
803 ALSO DO A DRIVE INIT (DRVINT) 
04 033470 105761 030340 TSTB DRVSTA(R1) :DID DRIVE COME ONLINE? 
805 033474 003414 BLE 5$ ZNO 
806 033476 032737 040000 030320 BIT ABIT14,RMERRS ;WAS THERE AN ERROR? 
807 0353504 001000 BNE 3$ [BR IF ERROR 
811 033506 013705 030322 3$: MOV RMERRS+2,R5 YES -- PICKUP RMER1 AND 
812 033512 000504 BR SC6A :GO PROCESS THE ERROR 
813 033514 105761 030330 43: TSTB DRVACT(R1) :DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY 2? 
814 033520 001033 BNE SC6 ;BR IF EITHER 
815 033522 004737 034270 JSR PC,SCi2 SAVE RMDS, RMER1, RMER2, AND RMMR2 - 
816 :ALSO DO A DRVINT 
817 033526 105761 030360 5$: TS1B DPINT(R1) TRYING TO INIT THE DRIVE ? 
818 033532 001323 BNE SC4 ;BR IF YES, CHECK ON MORE DRIVES 
819 033534 105761 030340 TSIB DRVSTA(R1) : CHECK ON DRIVE'S STATUS 
820 033540 100412 BMI 6$ [BR IF UNSAFE 
821 033542 032737 620000 030324 BIT #BIT1I3,RMERRS+4 : ADDRESS PLUG CHANGED ? 
822 033550 001013 BNE 7$ BR IF YES 
826 033552 012746 000111 MOV #111,-(SP) [DRIVE CLEAR 
827 033556 004037 035270 JSR RO,WRT.RM :WRITE THE COMMAND INTO RMCS1 
828 033562 000000 RMCS1 REGISTER INDEX 
829 033564 034130 $c8 ;PARITY EXIT ADDRESS 
830 033566 011605 6$: MOV (SP) ,R5 :PICKUP (RMAS) BEFORE THE ERROR CALL 
831 033570 004037 036406 JSR RO,ES. SAV ;SAVE THE ADDRESS IN 'SESCAPE* 
033574 104002 EMT 2 REPORT THE UNEXPECTED ATTENTION 
832 033576 000701 BR SC4 GO CHECK FOR MORE ATA'S 
833 033600 7$: 
033600 004037 036406 JSR RO,ES.SAV SAVE THE ADDRESS IN ‘SESCAPE' 


K 10 
Z2RMLBO RMO5/3/2 FORMATTER MACRO VOS.00 4-APR-87 18:39:56 PAGE 45-14 
RR/RM DRIVER INITIALIZATION CODE 


033604 104005 EMT 5 REPORT THE ADDRESS PLUG CHANGE 
Hts 033606 000675 BR St4 ; CHECK FOR MORE DRIVES 
836 033610 006301 S(6: ASL R1 ;SETUP TO ADDRESS WORDS 
837 033612 012761 177777 930422 MOV #-1,TIMER(R1)  :STOP THE TIMER 
838 033620 006201 ASR R1 * RESTORE THE DRIVE ADDRESS 
839 033622 004737 036316 JSR PC, GETREQ iGET THE rT POINTER FROM THE QUEUE 
840 033626 010164 000010 MOV R71. RMCS2(R4) ~ sSELECT DRIVE 
841 033632 000137 034160 JMP §c11 ‘PROCESS THE SEARCH 
842 033636 004037 035110 JSR RO,RD.RM TREAD THE RM'S STATUS REG. 
843 033642 000012 RMDS 
8464 033644 034130 SC8 
845 033646 011605 MOV (SP) ,RS ;AND PUT IT IN RS 
846 033650 006126 ROL (SP) + ;WAS THERE AN ERROR? 
847 033652 100607 BMI 1$ ;BR IF ERROR 
848 033654 105761 0350330 TSTB DRVACT(R1) a DRIVE'S STATE 
849 033660 003137 BGT §c11 R IF DRIVE ACTIVE WITH ORDER 
850 033662 052762 100210 000016 BIS #B1T15!BIT07! pits, 16(R2) ; INFORM USER OF ERROR RECOVER COMPLETION 
851 033670 000470 ae SC7 
852 C33672 004037 035110 1$: JSR ROLRD.RM READ ERROR REGISTER #1 
853 033676 000014 RMER1 
854 033700 034130 $c8 
855 033702 012605 MOV (SP)+,R5 zAND SAVE IT IN R5 
856 033704 904737 035462 JSR PC, SVRH70 SAVE RH/RM REGISTERS 
857 033710 012746 000111 MOV #111,-(SP) ; ISSUE A DRIVE CLEAR 
858 053714 004037 035270 JSR RO,WRT.RM 
859 033720 000000 RMCS1 
= 033722 034130 Sc8 
862 033724 006105 SC6A:  ~=ROL R5 ;WAS “'UNSAFE'’ CONDITION =1? 
863 033726 100406 BM! 1$ ‘BR EF.YES 
864 033730 005702 TST R2 ANYTHING IN QUEUE ? 
865 033732 001447 BEQ SC? :BR IF NOT 
866 035734 052762 100240 000016 BIS SeIT15! BI1T07! BITO5, 16(R2) : INFORM USER OF ERROR 
867 033742 000443 BR SC7 
868 033744 004037 035110 1$: JSR RO,RD.RM ;READ DRIVE STATUS REG. #1 
869 033750 000012 RMDS 
870 033752 034150 $c8 
871 033754 011605 MOV (SP) ,R5 ie wes IN R5 
872 033756 006126 ROL (SP) + ‘ERR 
873 033760 100011 BPL 23 :BR IF Teripesar’ CLEARED 
874 033762 112761 177777 030340 MOVB #-1 Phat head — IS UNSAFE 
875 033770 004737 035462 JSR PC, SVRH70 AVE RH/RM REGISTERS 
876 033774 052762 110000 000016 BIS itis 'B1T12, 16(R3) > INFORM USER OF UNSAFE ERROR 
877 034002 000423 BR 
878 034004 032705 010000 2s: BIT £381T12,R5 :"MOL’’ = 1 ? 
879 034010 001015 BNE *$ BR IF YES 

034012 112761 177777 030330 MOV5 #-},DRVACT(R1) ;ACTIVE ERROR RECOVER 
881 034020 112761 000001 030340 MOVB #17, DRVSTA(R1) =: ONLINE 
882 034026 006301 ASL R1 
883 034030 012761 035230 030422 MOV #15000., TIMER(R1) ;START 15. SECOND TIMER 
884 034036 006201 ASR R1 
885 034040 000137 033402 JMP SC4 : 
$66 034044 052762 100220 000016 3$: BIS #B1T15!BITO7'BIT04,16(R2) : INFORM USER OF ERROR 
888 034052 105061 030330 SC?7: CLRB DRVACT(R1) :DRIVE IS IDLE 


892 034056 004737 036340 JSR PC ,POPQUE REMOVE THE QUEUE 
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Re/RM DRIVER INITIALIZATION CODE 
893 034062 105761 030406 TSTB ULDFLG(R1) eS a Me PROGRESS OR QUEUE? 
894 034066 003002 BGT 1$ ;BR 
895 034070 105061 030406 CLRB ULDFLG(R1) CLEAR UNLOAD FLAG 
896 034074 116164 030444 000016 '$: MOVB ATABIT(R1) ,RMAS(R4) ;CLEAR ATTENTION BIT 
897 034102 105761 030340 TSTB DRVSTA(R1) 31S THE DRIVE UNSAFE ? 
898 034106 100406 BM] 2$ sR IF if 35 
902 034110 012746 000111 MOV #7111,-(SP) DRIVE CLEAR COMMAND 
903 034114 004037 035270 JSR RO,WRT.RM sWRITE THE COMMAND INTO RPCS1 
904 034120 000000 RMCS1 sREGISTER INDEX 
905 034122 034130 $¢8 PARITY EXIT ADDRESS 
one 034124 000137 033402 23: JMP SC4 CHECK FOR MORE DRIVES 
908 034130 105761 030330 $C8: TSTB DRVACT(R1) ils DRIVE IDLE? 
909 034134 001405 BEQ 1$ YES 
910 034136 004737 036316 JSR PC,GETREQ GET DPB POINTER 
911 034142 004737 0352564 JSR PC,CI7 SPROCESS THE PARITY ERROR 
912 034146 000402 BR 2$ > CONT INUE 
913 034150 1$: 
917 034150 004737 032606 JSR PC,C17B sPROCESS THE UNCORRECTABLE PARITY ERROR 
pas 634154 000137 033402 2$: JMP SC4 CHECK MORE DRIVES 
920 034160 165761 030406 SCils. T8768 ULDFLG(R1) 2 pa IN PROGRESS'*? 
921 034164 003402 BLE 1$ BR I 
922 034166 105061 930406 CLRB ULDFLG(R1) #CLEAR UNLOAD FLAG 
923 034172 105061 030330 TS: CLRB DRVACT(R1) SET DRIVE IDLE 
924 034176 136137 030444 030402 BITB ATABIT(R1) . SRCHWT :DOING A SEARCH ”  iaiiaiaee FOR 
925 zAN 1/0 COMMAND? 
926 034204 001012 BNE 2$ 3BR IF YES 
927 034206 004737 036340 JSR PC ,POPQUE sREMOVE REQUEST FROM QUEUE 
928 034212 052762 000200 000016 BIS #B1T07,16(R2) SET "‘DONE'’ BIT 
929 034220 005737 030416 TST SAVEFG :SAVE THE REGISTERS? 
930 034224 100002 BPL 2$ BR IF NO 
931 034226 004737 035462 JSR PC,SVRH70 zYES--SAVE ALL OF THE RH/RM REG*S 
932 034232 116164 030444 000016 2$: MOVB ATABIT(R1) ,RMAS(R4) ;CLEAR ATTENTION BIT 
933 034240 146137 030444 030402 BICB ATABIT(R1),SRCHWT :CLEAR IMPLIED SEEK SET 
934 034246 006301 ASL R1 ;WORD INDEX 
935 034250 012761 177777 030422 MOV #-1,TIMER(R1)  ;STOP CLOCK 
936 034256 006201 ASR R1 SRESTORE R1 
937 034260 004737 031506 JSR PC,OPT ZSTART A REQUEST 
eae 034264 000137 033402 JMP SC4 : CHECK FOR MORE DRIVES 
940 034270 010164 000010 SCl2: MOV R1,RMCS2(R4) SELECT DRIVE 
941 034274 016437 000012 030320 MOV RMDS(R4) ,RMERRS ;SAVE THE FOUR REGISTERS THAT 
942 034302 016437 000014 030322 MOV RMER1 (RS) ,RMERRS+2 sWILL TELL US SOMETHING 
943 034310 016437 000042 030324 MOV RMER2(R4) ,RMERRS+4 
944 034316 016437 000040 030326 MOV RMMR2 (R4) ,RMERRS+6 
945 034324 004037 030700 JSR RO,DRVINT INIT. THE STATE OF THE DRIVE 
946 034330 000401 BR 1$ 3 TAKE ERROR EXIT 
947 034332 000207 RTS PC RETURN 
948 034334 005726 1$: TST (SP) + :POP PC OFF OF THE STACK 
ats 034336 000674 BR Sc8 sPROCESS THE PARITY ERROR 
951 034340 006301 $C13: ASL R1 ;SETUP_TO ADDRESS WORDS 
952 034342 012761 177777 030422 MOV eet TIMER(R1) = STOP THE TIMER 
953 034350 006201 ASR 
954 034352 010164 000010 MOV RI, RMCS2(R4) SSELECT THE DRIVE 


955 034356 116164 030444 000016 MOVB ATABIT(R1) ,RMAS(R4) ;CLEAR THE ATTENTION BiT 
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956 034364 105761 030360 1$: TSTB DPINT(R1) aaa THE DRIVE ? 
957 034370 001424 BEQ 2$ ‘BR IF 
958 034372 105061 030360 CLRB DPINT(R1) CLEAR WUE ‘gh INDICATOR 
959 0343576 9040357 030700 JSR RO, DRVINT ‘GO INIT THE DRIVE 
960 034402 000240 NOP DUMMY PARITY OF AROR RETURN 
961 034404 105761 030340 TSTB DRVSTA(R1) SDRIVE ONLINE ? 
962 034410 003014 BGT 2$ ‘BR IF YES == START ORDER 
963 034412 005702 TST R2 QUEUE ENTRY FOR THE DRIVE 
964 034414 001426 BEQ 3$ BR IF NOT 
965 034416 004737 036316 JSR PC,GETREQ T DPB ADDRESS 
966 034422 052762 140000 900016 BIS Wei TiS (BIT14, 16(Ro ; INFORM USER THAT DRIVE OFFLINE 
967 034430 0047357 035462 JSR PC,SVRH70 ZSAVE THE REGISTERS 
971 034434 004737 036340 JSR PC ,POPQUE sREMOVE THE QUEUE 
972 034440 000414 BR 3$ 
973 034442 032764 004000 000000 2$: BIT #B17T11,RMCS1(R4) ;DVA SET ? 
974 034450 001006 BNE 4$ 2ST THEN CALL OPT 
975 034452 006301 ASL R1 
976 034454 012761 035230 030422 MOV #15000. ,TIMER(R1) ;START 15. SECOND TIMER 
977 034462 006201 ASR R1 
978 C34464 000402 ga 3$ 
979 034466 004737 031506 43: JSR PC,OPT ZSTART THE PENDING REQUEST 
one 034472 000137 033402 3$: JMP SC4 :PROCESS OTHER DRIVES 
982 RM TIMER ROUTINE 
983 ZS CALL 
984 : MOV ATIME ,~(SP) ZELASPED TIME IN MILLISECONDS ON THE STACK 
oar : JSR PC ,RMTMR :CALL RMOS TIME ROUTINE 
987 034476 005737 030404 RMTMR: TST ACTDRV 3; CHECK i Sy ;, ACTSTR'' 
988 034502 001027 BNE 4$ :1F NON ZERO 
989 034504 112737 0600007 9030405 MOVB #1,ACTSTR SET MACTSTR 
990 034512 104412 SAVREG ZSAVE RO - RS 
991 034514 005001 CLR R1 ;START WITH DRIVE O 
2 034516 005003 CLR R3 
993 034520 005763 030422 1$: TST TIMER(R3) 748 is ae RUNNING? 
034524 002406 BLT 2$ ‘BR IF 
995 034526 166663 000002 030422 SUB 2(SP),TIMER(R3) ;COUNT THE INTERVAL 
034534 003002 BGT 2s BR IF NO SOFTWARE TIMEOUT 
997 034536 004737 034566 JSR PC,STO CALL SOFTWARE TIMEOUT ROUTINE 
998 034542 005201 2$: INC R1 MOVE TO NEXT DRIVE 
999 034544 005723 TST (R3)+ 
1000 034546 022701 000010 CMP #8.,R1 ;OUT OF DRIVES? 
1001 034552 003362 BGT 1$ “BR IF NO 
1002 034554 104413 3$: RESREG ZRESTORE RO - R5 
1003 034556 105037 030405 CLRB ACTSTR ZZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
1004 034562 012616 4$: MOV (SP) +, (SP) “ADJUST THE STACK 
ae 034564 000207 RTS PC RETURN 
oon sSOFTWARE TIMEOUT ROUTINE 
1009 sNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
1010 : OR GREATER 
1011 : 
1012 iCALL: STO 
1013 3 MOV ADRVNUM,R1 :DRIVE NUMBER 
1014 3 JSR PC,STO 7 CALL 
1075 ; RETURN 
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101 

1017 034566 010146 STO: MOV R1,-(SP) 3SAVE R1 

1018 034570 010246 MOV R2,~(SP) 7 SAVE R2 

1019 034572 010346 MOV R3,-(SP) ;SAVE R3 

1020 034574 010446 MOV R4,-(SP) 7 SAVE RS 

1021 034576 013704 030456 MOV RMADR ,R4 GET ADDRESS OF ‘‘RMCS1"* 

1022 034602 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 

1023 034606 004037 035110 JSR RO,RD.RM sREAD ‘DRIVE STATUS REG’ 

1024 034612 000012 RMDS 

1028 034614 035076 STO9 

1029 034616 105726 TSTB (SP) + 31S ‘DRY‘'=1? 

1030 034620 100436 BMI STO02 BR IF YES 

1031 034622 105761 030360 STOT: = TSS DPINT(R1) TRYING TO INTIALIZE THE DRIVE ? 
1032 034626 001033 BNE STO2 BR IF YES 

1033 034630 105761 030370 TSTB DPRQS(R1) :OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
1034 034634 001030 BNE ST02 BR IF YES 

1035 034636 013702 030400 MOV TRNSWT ,R2 PICKUP TRANSFER WAIT QUEUE 

1036 034642 020137 030442 CMP R1,DTUW ; TRANSFER UNDERWAY ON THIS DRIVE? 
1037 034646 001404 BEQ M 7BR IF YES 

1038 034650 000137 035076 JMP sg ‘ie Bi 33 DON'T ea DRIVES 

1039 034654 004737 036316 JSR Beog TREQ T DPB ADDRESS 

1040 034660 052762 101000 000016 1$: BIS Wait 15 BiT09, 16(h3) SET THE ERROR FLAGS 

1041 034666 004737 035462 JSR PC,SVRH70 ; SAVE RH/RM REGISTERS 

1045 034672 105061 030330 CLRB DRVACT(R1) sDRIVE IS_IDLE 

1046 034676 105061 030406 CLRB ULDFLG(R1) SCLEAR THE UNLOAD FLAG 

1047 034702 005037 030400 CLR TRNSWT :CLEAR DPB ADDRESS 

1048 034706 012737 177777 030442 MOV #~-1 ,DTUW ;CLEAR THE TRANSFER DRIVE #4 

ieee 034714 000470 BR STO9 ;DON’T BOTHER OTHER DRIVES 

1051 034716 116405 000016 STO2: MOVB RMAS(R4),R5 READ ATTENTION REG 

1052 034722 136105 030444 BITB ATABIT(R1) ,R5 :IS ATTENTION FOR THIS DRIVE UP ? 
1053 034726 001007 BNE STO3 YES 

1054 034730 105761 030360 TSTB DPINT(R1) = TRYING TO INTIALIZE THE DRIVE ? 
1055 034734 001021 BNE ST06 [BR IF YES = DRIVE NOT ONLINE 
1056 034736 105761 030370 — TSTB DPRQS(R1) :OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
1057 034742 001035 BNE ST07 ;BR IF YES - NO RESPONSE TO REQUEST 
be 034744 000454 BR STO9 OTHER WISE EXIT 

1060 034746 105761 030360 ST03: TSTB DPINT(R1) INITIALIZING THE DRIVE ? 

1061 034752 001003 BNE 1$ [BR IF INIT PENDING 

1062 034754 105761 030370 TSTB DPRQS(R1) 7PORT ee PENDING ? 

1063 034760 001446 BEQ STO9 BR IF 

1064 034762 0127635 177777 030422 1%: MOV #-1,TIMER(R3) STOP THE "Timer 

ine? 034770 000442 BR STO9 sEXIT 

1067 034772 004737 032664 ST03;-. 3SR PC,C18 360 HANDLE THE PARITY ERROR 

ie 034776 000437 BR STO9 

1070 035000 105061 030360 STO06:  CLRB DPINT(R1) CLEAR THE INITIALIZE INDICATOR 
1071 035004 105061 030340 CLRB DRVSTA(R1) SET UNIT OFFLINE 

1072 035010 012763 177777 030422 MOV #-1,TIMER(R3) ;STOP THE TIMER 

1073 035016 004737 036316 JSR PC,GETREQ :GET THE DPB ADDRESS 

1074 035022 005702 TST R2 REQUEST IN QUEUE ? 

1075 035024 001424 BEQ sTo9 ;BR IF NOT 

1076 035026 052762 140000 000016 BIS #BITIS!BIT14,16(R2) . ; INFORM THE USER DRIVE NOT AVAILABLE 
be 035034 000414 BR STO8 7FINISH 
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1079 035036 012763 177777 930422 STO7: MOV #-1, TIMER(R3) sSTOP THE TIMER 
1080 035 105061 630370 CLRB DPROQS(R1) ;CLEAR PORT REQUEST INDICATOR 
1081 035050 006737 036316 JSR PC,GETREQ :GET DPB ADDRESS 
1082 035054 005702 TST R2 sQUEUE ENTRY FOR DRIVE ? 
1083 035056 001407 BEQ STO9 ;BR IF NONE 
1084 035 012762 100004 000016 MOV #31T15'BIT2,16(R2) 7 INFORM USER OF PORT REQUEST ERROR 
1085 0355066 004737 036222 JSR PC,EMPTYQ 7CLEAR THE QUEUE FOR THE DRIVE 
1086 035072 004737 035462 JSR PC,SVRH70 SAVE THE REGISTERS 
1087 035076 012604 STO9: MOV (SP)+,R4 sRESTORE R4 
1088 0351 012603 MOV (S$?) +,R3 RESTORE R3 
1089 035102 012602 MOV (SP)+,R2 RESTORE R2 
1090 035104 012601 MOV (SP)+,R1 RESTORE R1 
Ly o4 035106 000207 RTS PC RETURN 
we ZROUTINE TO READ A RH/RM REGISTER 
1095 7 CALL 
1096 : JSR RO,RD.RM 7GO READ A REGISTER 
1097 : INDEX sREG. INDEX FROM BASE 
1098 : ERRADR :ERROR ADDRESS=--PROCESS ERROR STARTING 
1099 : sAT THIS ADDRESS 
By rs RETURN : CONTENTS OF REG. IS ON THE STACK 
1102 035110 013737 030454 035256 RD.RM: MOV MCPEMX,RD.RM2 ;MAX. RETRYS ALLOWED 
1103 035116 011646 MOV (SP) ,-(SP) 3; SAVE RO FOR RETURN 
1104 035120 013737 030456 035134 MOV RMADR,RD.ADR 7FORM THE DESIRED ADDRESS 
1105 035126 062037 035134 ADD (RO) +,RD.ADR ;USING THE BASE AND THE INDEX 
1106 035132 013727 RD.RM1: MOV a(PC)+,(PC)+ ZREAD THE DESIRED REGISTER OF THE RM DRIVE 
1107 035134 000000 RD.ADR: .WORD 0O ;ADDRESS IS FORMED HERE 
1108 035136 000000 RD.WRD: .WORD 0 7REG. CONTENTS PUT HERE 
1109 035140 013766 035136 000002 MOV RD.WRD,2(SP) ZRETURN IT TO THE USER 
1110 035146 013746 030456 MOV RMADR ,-(SP) :PUT THE ADDRESS ON THE STACK 
1111 035152 062716 000010 ADD ARMCS2, (SP) sFORM THE ADDRESS OF RMCS2 
1112 035156 032736 010000 BIT #BIT12,a(SP)+  ;CHECK THE "NED* BIT 
11135 035162 001037 BNE RD.RM3 37BR IF DRIVE NON-EXISTENT 
1114 035164 017746 173266 MOV A@RMADR , — (SP) :READ RMCS1 
1115 035170 032716 020000 BIT #81713, (SP) ;DID MCPE SET? 
1116 035174 001002 BNE 1$ 7BR IF YES 
1117 035176 022620 CMP (SP)+,(RO)+ ZADJUST FOR RETURN 
1118 035200 000432 BR RD.RM4 EXIT 
1119 035202 1$: 
035202 004037 036406 JSR RO,ES.SAV ;SAVE THE ADDRESS IN ‘SESCAPE‘ 
035206 104003 EMT 3 ZREPORT ‘“MCPE'* ERROR 
1120 035210 005737 030442 TST DTUW :DATA TRANSFER UNDERWAY? 
1121 035214 100405 BMI 2$ NO 
1166 035216 032716 040000 BIT #B1T14, (SP) 7 TRE = 1? 
1123 035222 1402 BEQ 2$ NO 
1126 035224 005726 TST (SP) + > YES=-CLEAN OFF THE STACK AND 
1125 035226 000415 BR RD.RM3 : TAKE THE FATAL ERROR EXIT 
1126 035230 052716 040000 2$: BIS #BIT14, (SP) ;CLEAR ‘MCPE'’ BY SENDING A ‘1’ TO ‘TRE’ 
1127 035234 000316 SWAB (SP) :POSITION BEFORE WRITING 
1128 035236 013737 030456 035252 MOV RMADR, 3$ 7FORM ADDRESS OF HIGH BYTE 
1129 035244 005237 035252 INC $ 
1130 035250 112637 MOVB (SP)+,a(PC)+ sWRITE THE HIGH BYTE OF RMCS1 
1131 035252 000000 3$: s 0 :ADDRESS STORAGE 
1132 035254 005327 EC (PC) + sEXCEEDED MAX. RETRYS 
11738 035256 000003 RD.RM2: .WORD 3 
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1134 035260 002324 BGE RD.RM1 :BR IF NO 

1135 035262 011000 RD.RM3: MOV (RO) ,RO sFATAL ERROR ExIT 

1136 035264 012616 MOV (SP)+, (SP) 

LB 4 035266 000200 RD.RM4: RTS RO 

1139 ROUTINE TO WRITE A REGISTER 

1141 CALL 

1142 : MOV DATA, -(SP) DATA TO BE LOADED ON THE STACK 

1143 : JSR RO.WRT.RM CALL THE ROUTINE TO LOADR(WRITE) THE REG. 

1144 5 INDEX INDEX OF THE REGISTER TO BE LOADED 

1145 : ERRADR ADDRESS TO RETURN TO ON AN ERROR 

1146 : RETURN ERROR FREE RETURN 

1148 035270 013737 030654 035446 WRT.RM: MOV MCPEMX,WRT.R2  ;:MAX RETRYS ALLOWED 

1149 035276 016637 000002 035356 MOV 2(SP) ,WRT.WD SAVE THE WORD TO WRITE 

1150 035304 012616 MOV (SP)+, (SP) ADJUST THE STACK 

1151 035306 012037 035360 MOV (RO) +, WRT.AD GET INDEX OF REGISTER TO BE WRITTEN 

1152 035312 1015 BNE 1$ BR IF NOT RMCS1 

1153 035314 122737 000150 035356 CMPR #150, WRT.WD 31S THE COMMAND FOR DATA TRANSFERS? 

1154 035322 002411 BLT 1$ 7 YES--DON'T GET THE OLD Al6 & A17, & PSEL 

1155 035324 004037 035110 JSR RO,RD.RM ;NO=--COMBINE A168A17, & PSEL WITH 

1156 035330 00000 RMCS1 : THE COMMAND BEFORE SENDING IT TO 

1157 035332 035452 WRT .R3 : THE RH/RM 

1158 035334 000316 SWAB (SP) 

1159 035336 042716 177770 BIC #“°C7, (SP) 

1160 0355342 112637 035357 MOVB (SP)+,WRT.WD+1 

1161 035346 063737 030456 035360 1$: ADD RMADR,WRT.AD FORM THE ADDRESS OF THE DISK REG. 

1162 035354 012737 WRT.R1: MOV (PC)+,a(PC)+ LOAD THE DESIRED REG. 

1163 035356 000000 WRT.WD: .WORD 0 sWORD TO WRITE GOES HERE 

1164 035360 000000 WRT.AD: .WORD 0 ADDRESS IS FORMED HERE 

1165 035362 013746 030456 MOV RMADR,-(SP) :PUT THE ADDRESS ON THE STACK 

1166 035366 062716 000010 ADD ARMCS2, (SP) FORM THE ADDRESS OF RMCS2 

1167 035372 032736 010000 BIT #BIT12,a(SP)+ 7CHECK THE ‘NED* BIT 

1168 035376 001025 _ BNE WRT .R3 3;BR IF DRIVE NON-EXISTENT 

1169 035400 004037 035110 JSR RO.RD.RM : CHECK FOR PARITY ERROR ON WRITE 

1170 035404 000014 RMER1 

1171 035406 035452 WRT .R3 

1172 035410 032726 000010 BIT #BIT03,(SP)+ 

1173 035414 001420 BEQ WRT RS :BR IF ‘PAR=0"' 

1174 035416 016037 177776 035430 MOV -2(RO),1$ PICKUP THE INDEX 

1175 035424 004037 035110 JSR RO,RD.RM READ THE REG. 

1176 035430 0000 1$: -WORD 0 ZREG. INDEX 

1177 035432 035452 WRT .R3 RETURN TO THIS ADDRESS ON ERROR 

1178 055434 037 036406 . JSR RO,ES.SAV SAVE THE ADDRESS IN 'SESCAPE' 
035440 104004 EMT 4 REPORT THE PARITY ON WRITE ERROR 

1179 035442 005726 TST (SP)+ :CLEAR OFF THE STACK 

1180 035444 005327 DEC (PC) + ZDECREMENT THE ERROR COUNT 

1181 035446 000003 WRT.R2: .WORD 3 RETRY COUNTER 

1182 035450 002341 BGE WRT .R1 :TRY AGAIN IF NOT FINISHED 

1183 035452 011000 WRT.R3: MOV (RO) ,RO ; TAKE THE ‘PARITY ON WRITE'’ ERROR FXIT 

1184 035454 401 BR WRT RS ZEXIT 

1185 035456 005720 WRT.R4: TST (RO)+ ADJUST FOR ERROR FREE EXIT 

Be 035460 000200 WRT.RS: RTS RO 

ie ;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPRB+14 
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190 2 CALL 
1191 : MOV © #DPBNUM, R2 :DPB POINTER TO R2 
1198 : JSR PC, SVRH70 SAVE THE DRIVES REG'S 
tt 
1194 035462 104412 SVRH70: SAVREG :SAVE_RO = RS 
1195 035464 005702 a Me [QUEUE ENTRY FOR THE DRIVE ? 
1196 035466 001440 BEQ ss 6S ZBR IF NONE 
1197 035470 013704 030456 MOV  —-RMADR, R4 
1198 035474 111264 000010 MOVB  (R2) ,RMCS2(R4) SELECT DRIVE 
1199 035500 016203 000014 MOV =—-:14, R2) ,R3 GET THE ERROR TABLE POINTER 
1200 035504 001433 BEQ 6S ZEXIT IF NO_ ADDRESS 
1201 035506 005037 035542 CLR = 3$ COUNTER & PO 
1202 035512 023727 035542 00022 18: CMP —-3$, #RMDB TREACHED THE BUFFER REGISTER ? 
1203 035520 001006 BNE = 2$ iBR IF NOT 
1204 035522 032764 000200 000010 BIT BI TO7,RMCS2(R4) :"OR' SET ? 
1205 035530 001002 BNE —_-2$ :BR IF SET 
1206 035532 005023 CLR (R3)+ :STORE RMDB AS ZEROES 
1207 035534 000405 BR 4$ ; CONT INUE 
1208 035536 004037 035110 2s: JSR RO, RD. RM ;READ THE SELECTED REGISTER 
1209 €35542 000000 38: WORD 0 :REGISTER INDEX 
1210 035544 035570 5$ ERROR RETURN ADDRESS 
211 035546 012623 MOV (SP)+,(R3)+ ;STORE THE REGISTER CONTENTS 
212 035550 023727 035542 000046 43: CMP —-3$,, ARMEC2 ZREACHED THE END ? 
213 035556 001406 BEQ GS :BR IF YES 
214 035560 062737 000002 035542 ADD —«- #2, 38 INCREMENT THE REGISTER INDEX 
215 035566 000751 BR 1$ CONTINUE READING THE REGISTERS 
216 455570 004737 032564 5$: ian PC 01? PROCESS THE UNCORRECTABLE PARITY ERROR 
227 035574 104413 6$: RESREG RESTORE RO ~ R5 
329 035576 000207 i a : RETURN 
231 : ROUT INE TO SET THE INTERRUPT WITHOUT GETTING A ‘'TRE' 
; CALL 

233 ; MOV = #DRVNUM,R1 ;DRIVE NUMBER TO R1 
234 ; JSR PC, SET. JE SSE MES 
335 ; RETURN 
237 035600 010446 SET.IE: MOV —-R4, = (SP) ;SAVE R4 
238 035602 013704 030456 MOV —-RMADR.R4 :PICKUP ADDRESS OF RMCS1 
239 035606 010164 000010 MOV —-RT,RMCS2(R4) =: SELECT_ DRIVE 
1240 035612 011446 MOV (R4) ,=(SP) :READ_RMCS1 
1241 035614 052716 040000 BIS  —- #BIT14, (SP) SET THE “TRE'’ BIT OF THE WORD READ 
1242 035620 000316 SWAB (SP) ZADJUST FOR DATO 
1243 035622 112714 000100 MOVB  #BITO6, (R4) SEY. IE" 
1244 035626 032764 010000 000010 BIT  —- #BIT12,RMCS2(R4) :1S 'NED''=1? 
1245 035634 001002 BNE 1$ SYES=—CLEAR “TRE” 
1246 035636 005726 TST (SP) + CLEAN OFF THE STACK 
1247 035640 000402 BR 2s 
1248 035642 112664 000001 1$: MOVB = (SP) +, 1(R4) CLEAR "'TRE'' 
1249 035646 012604 2$: MOV. (SP) +, RA ZRESTORE R4 
1250 035650 000207 ASL RETURN TO CALLER 
193¢ :QUEUE COUNT 
1254 035652 000 QCNT: BYTE 0 ;DRIVE 0 
1257 035653 = 000 BYTE 0 ;DRIVE 1 

035654 000 BYTE 0 ;DRIVE 2 

035655 000 “BYTE 0 :DRIVE 3 
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we /RM DRIVER INITIALIZATION CODE 


035656 900 BYTE 0 DRIVE 4 
035657 000 -BYTE 0 DRIVE 5 
035660 000 .BYTE O DRIVE 6 
1288 035661 000 BYTE 0O DRIVE 7 
aan sQUEUE INPUT POINTERS 
1261 035662 035744 QINPT: .WORD GDRVO DRIVE 0 
1264 035 035764 .WORD QDRV1 DRIVE 1 
35 036004 .WORD QDRV2 DRIVE 2 
035670 036024 .WORD QDRV3 DRIVE 3 
035672 036044 .WORD QDRV4 DRIVE 4 
035674 036 .WORD QDRV5 DRIVE 5 
035676 036104 .WORD QDRV6 DRIVE 6 
+a 0357 036124 .WORD QDRV7 DRIVE 7 
6 
1se6 QUEUE OUTPUT POINTERS 
1268 035702 055744 QOUTPT: . WORD QDRVO :DRIVE 0 
1271 ©3571 035764 -WORD QDRV1 DRIVE 1 
035706 036004 .WORD QDRV2 DRIVE 2 
035710 036024 . WORD QDRV3 sDRIVE 3 
035712 036044 .WORD QDRV4 DRIVE 4 
035714 036064 WORD QDRV5 DRIVE 5 
035716 036104 .WORD QDRV6 DRIVE 6 
we 035720 036124 WORD QDRV7 DRIVE 7 
1273 035722 035744 QSTART: .WORD QDRVO DRIVE 0 START ADDRESS 
1274 035724 035764 osToP: .WORD QDRV1 zDRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
1275 035726 036004 -WORD QDRV2 :STOP DRIVE 1=--START DRIVE 2 
1276 035730 036024 .WORD QDRV3 STOP DRIVE 2--START DRIVE 3 
1277 035732 036044 .WORD QDRV4 STOP DRIVE 3--START DRIVE 4 
1278 035734 036064 .WORD QDRVS STOP DRIVE 4--START DRIVE 5 
1279 035736 036104 -WORD GDRV6 STOP DRIVE 5--START DRIVE 6 
1280 035740 036124 -WORD QDRV7 STOP DRIVE 6--START DRIVE 7 
ir a 035742 036144 -WORD QTERM STOP DRIVE 7 
ise: DRIVE REQUEST QUEUES 
1287 035744 QDRVO: .BLKW 10 
035764 QDRV1: .BLKWw 10 
036004 QDRV2: .BLKW . 10 
036024 QDRV3: .BLKW 10 
0 4 QDRV4: .BLKW 10 
036064 QDRV5: .BLKwW 10 
056104 QDRV6: .BiKW 10 
036124 QDRV7: .BLKW 10 
1388 036144 QTERM=. . 
is ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
1292 7 CALL 
if 4 : JSR PC, CLRQUE 
1295 036144 104412 CLRQUE:, SAVREG SAVE RO = RS 
1296 036146 012702 035652 MOV MQCNT,R2 : ZERO THE QUEUE COUNTS 
1297 036152 005022 CLR (R?)+ :DRIVES 0 & 1 
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wh/RM DRIVER INITIALIZATION CODE -u 0135 
1298 036154 005022 CLR (R2)+ DRIVES 2 & 3 
1295 036156 005022 CLR (R2)+ SDRIVES 4 & 5 
1500 936160 90502 CLR (R2)+ iDRIVES 6 & 7 
1307 036162 012703 000010 MOV #8. .R3 sMOVE THE STARTING 
1302 036166 012701 035722 MOV #QSTART,R1 sADDRESS OF THE QUEVE INTO 
1303 036172 012122 1$: MOV (R1)+*,(R2)+ 7 THE QUEUE INPUT POINTER 
1304 036174 005303 om DEC R3 
1305 036176 001375 : BNE 1$ 
1306 036200 012703 000010 MOV #8. .R3 sMOVE THE STARTING ADDRESS 
1307 036204 012701 035722 MOV #QSTART,R1 OF THE QUEUE INTO THE 
1308 036210 012122 2$: MOV (R1)+, (R2)+ sQUEUE OUTPUT POINTER 
1309 036212 005303 DEC R3 
7810 036214 001375 BNE 2$ 
1311 036216 104413 RESREG ;RESTORE RO - RS 
136 036220 000207 RTS PC 
Lf zEMPTY THE QUEUE SPECIFIED BY R1 
1316 CALL 
1317 : MOV DRVNUM,R1 ;DRIVE NUMBER TO R1 
1318 ; JSR PC.EMPTYQ 
1320 036222 105061 035652 EMPTYQ: CLRB QCNT(R1) 7CLEAR NUMBER OF ITEMS IN QUEUE 
1321 036226 906301 ASL R1 
1522 036230 016161 035662 035702 MOV QINPT(R1) ,QOUTPT(R1) iSET OUTPUT QUEUE POINTER=INPUT POINTER 
1323 036236 006201 ASR R1 
lass 036240 000207 RTS PC 
1359 :ROUTINE TO PUT A REQUEST IN QUEUE 
1328 7 CALL 
1329 : MOV ADRVNUM,R1 DRIVE NUMBER 
1330 s MOV ADPB,R2 ;ADDRESS OF PARAMETER BLOCK 
1331 : JSR RO, DRVQUE :GO PUT REQUEST IN QUEUE 
1332 2 RETURN1 SRETURN HERE IF QUEUE IS FULL 
\3az : RE TURN2 SRETURN HERE IF REQUEST IS IN QUEUE 
1335 036242 122761 000010 035652 DRVQUE: CMPR #10, QCNT(R1) 21S QUEUE FULL? 
1336 036250 001421 BEG 2$ ;BR IF YES-TAKE RETURN] 
1337 036252 105261 035652 INCB QCNT(R1) > INCREMENT QUEUE COUNT 
1538 036256 006301 ASL R1 
1339 036260 010271 035662 MOV R2,@QINPT(R1) :PUT THIS REQUEST IN QUEUE 
1340 036264 062761 000002 035662 ADD #2, QINPT(R1) ;UPDATE THE QUEUE POINTER 
1341 036272 026161 035662 035724 CMP QINPT(R1) ,QSTOP(R1) sTIME TO RESET THE POINTER 
1342 036500 001003 BNE 1$ ;BR IF NO 
1343 036302 016161 035722 035662 MOV QSTART(R1) .QINPT(R1) :YES--RESET POINTER 
1344 036310 006201 1$; ASR R1 
1245 036312 005720 TST (RO)+ ; TAKE RETURN 2 
og: 036314 000200 2$: RTS RO :RETURN TG USER 
oe ;ROUTINE. TO GET THE '‘DPB'’ ADDRESS OF NEXT REQUEST IN QUEUE 
1350 CALL 
1351 : MOV BDRVNUM R14 DRIVE NUMBER TO R1 
1352 ; JSR PC, GETREQ :GO GET THE REQUEST 
1353 ‘ RE TURN ;Re="DPB’’ ADDRESS QF THE REQUEST 
1354 7R2=0 IF NO REQUEST IN QUEUE 
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1355 

1356 036316 005002 : GETREQ: CLR R2 

1$57 036520 105761 035652 TSTB QCNT(R1) 31S THERE ANY REQUEST IN QUEUF? 
1358 0363524 001404 BEQ e$ NO 

1359 036326 006301 1$: ASL R1 

1360 036350 017102 035702 MOV @QOUTPTC(R1),R82 = PICKUP ‘DPB’ POINTER FOR THIS DRIVE 
1361 036334 006201 ASR R1 

Bg 036336 000207 2$: RTS PC RETURN TO USER 

1308 sROUTINE TO *‘POP'' THE REQUEST FROM QUEUE 

1306 7 CALL 

1567 : MOV ADRVNUM,R1 ;DRIVE NUMBER TO R1 

1368 2 JSR PC ,POPQUE ;CALL TO REMOVE REQUEST 

iF : RETURN ;R2=ADDRESS OF DPB REMOVED 

1371 036340 105361 035652 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 

1372 036344 906301 ASL R1 

1373 036346 017102 035702 _ MOV @QOUTPT(R1),R2 ;GET THE '‘DPB'' POINTER 

1374 €36352 005071 035702 CLR @QOUTPT(R1) 7REMOVE DPB ADDRESS FROM THE QUEUE 
1375 036356 062761 000002 035702 ADD #2, QOUTPT(R1) ;UPDATE THE QUEUE POINTER 

1376 036364 026161 035702 0355724 CMP QOUTPT(R1) ,QSTOP(R1) ; TIME TO RESET THE POINTER? 
1377 036372 001003 BNE 1$ :NO=-BR TO EXIT 

1378 036374 016161 035722 035702 MOV QSTART(R1) ,QOUTPT(R1) :YES=--RESET THE POINTER 
1379 036402 006201 1$: ASR ees 

ieee 036404 000207 RTS PC ;RETURN TO USER 

13585 sROUTINE TO SAVE THE CONTENTS OF 'SESCAPE" WHEN THE DRIVER 

tr ZREPORTS AN ERROR DIRECTLY. 

1386 3 CALL 

1387 : JSR RO.ES.SAV 

1388 : ERROR N 33 THE ERROR CALL 

= 4 : RETURN THE RETURN IS PAST THE ERROR CALL 
1391 036406 012037 036422 ES.SAV: MOV (RO)+,1$ ;GET THE ERROR CALL 

1592 036412 015746 001176 MOV SESCAPE ,-(SP) :SAVE THE ADDRESS IN "S$ESCAPE" 
1393 036416 005037 001176 CLR $ESCAPE :CLEAR THE ESCAPE RETURN 

1394 036422 000000 1$: -WORD 0 7 THE ERROR CALL IS MOVED HERE 

1395 036424 012637 001176 MOV {SP)+, SESCAPE S RESTORE THE ESCAPE ADDRESS 

1396 036430 000200 RTS ROO RETURN 
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-SBITL TELETYPE MESSAGES 


3 
3 036432 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
4 036443 040 117 116 UNTON: .ASCIZ / ONLINE/ 
5 036453 049 116 177 WNOTRM: .ASCIZ @ NOT AN RMO5/3/2a 
6 036474 040 “116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
7 036511 040 125 116 NOTSAF: .ASCIZ / UNSAFE/ 
8 036521 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
9 0356536 122 115 060 $RMO2: .ASCIZ /RMO2/ 
10 036543 122 115 060 $RMO5: .ASCIZ /RM03/ 
11 036550 122 115 060 $RMOS: .ASCIZ /RMOS/ 
te 036555 200 125 116 UNSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
13 036573 200 104 122 MUNIT: .ASCIZ <CRLF>/DRIVE/ 
14 036602 054 000 $SCOMMA: .ASCIZ /./ 
15 036604 072 000 COLON: .ASCIZ /: / 
16 036607 040 057 040 SLASH: .ASCIZ a/ a 
17 036613 103 000 C3 ASCIL /C/ 
18 636615 124 000 Ts oASCIZ  -/T/ 
19 036617 040 BLNKS4: .ASCII / / 
20 036620 040 BLNKS3: .ASCII / / 
21 0 1 040 BLNKS2: .ASCII / / 
22 036622 040 000 BLNKS1: .ASCIZ / / 
23 036624 200 105 116 ENTADR: .ASCIZ <CRLF>/ENTER ADDRESS LIMITS:/<CRLF> 
24 036654 040 077 104 MOFFLN: .ASCIZ / ?DRIVE OFFLINE/<CRLF > 
25 036675 040 077 104 MDRNP: .ASCIZ / ?DRIVE NOT PRESENT/<CRLF> 
26 036722 040 077 104 MER11: .ASCIZ / ?DRIVE NOT AVAILABLE/<CRLF> 
27 036751 040 077 104 MUSDR: .ASCIZ / ?DRIVE UNSAFE/<CRLF> 
28 036771 040 077 104 MLODEV: .ASCIZ / ?DRIVE IS LOAD DEVICE/<CRLF> 
29 037021 040 123 105 MSELD: .ASCIZ / SELECTED/ 
30 037033 106 117 122 MFORMT: .ASCIZ /FORMAT & HEADER VERIFY/ 
31 037062 126 105 122 MVERFY: .ASCIZ /VERIFY HEADERS ONLY/ 
32 037106 054 040 117 MI6BIT: .ASCIZ /, OPERATE IN 16. BIT MODE/<CRLF> 
33 037141 054 117 Mi8BIT: .ASCIZ /, OPERATE IN 18. BIT MODE/<CRLF> 
34 037174 040 077 117 BADENT: .ASCIZ / ? INVALID ENTRY/<CRLF> 
35 037215 115 101 130 MADRER: .ASCII /MAX TRACK ADRS MUST BE EQUAL TO OR GREATER/<CRLF> 
36 037270 124 110 101 -ASCIZ /THAN MIN TRACK ADRS/<CRLF> 
37 037315 200 125 124 MSFOR: .ASCIZ <CRLF>/STARTING FORMAT/<CRLF> 
38 037337 200 123 124 MSQVER: .ASCIZ <CRLF>/STARTING QUICK HEADER VERIFY/<CRLF> 
39 037376 200 123 124 MSVER: .ASCIZ <CRLF>/STARTING HEADER VERIFY/<CRLF> 
40 037427 200 103 117 MSCMPT: .ASCIZ <CRLF>/COMPLETED/ 
41 037442 054 040 124 NUMERR: .ASCIZ /, TOTAL ERRORS DETECTED / 
42 037473 120 101 103 PACKSN: .ASCiZ @PACK S/N: a 
43 037506 120 122 105 ADDRIS: .ASCIZ /PRESENT ADDRESS IS: / 
44 037533 200 105 116 MESG1: .ASCIZ <CRLF>/ENTER SERIAL NUMBER (OCTAL): / 
45 037572 200 077 111 MESG2: .ASCIZ <CRLF>/?INCORRECT 'MFG' BAD SECTOR INFORMATION/ 
46 037643 200 077 117 MESG3: .ASCIZ <CRLF>/?20VER 126. BAD SECTORS DETECTED/ 
4? 037704 200 077 104 MESG4: .ASCIZ <CRLF>/?DISK IS AN ALIGNMENT PACK/ 
48 037740 200 123 105 MSGBLK: .ASCII <CRLF>/SELECT ONE OF THE FOLLOWING FUNCTIONS/<CRLF> 
49 040007 125 120 104 soil: (UPDATE “USR* BAD SECTORS. oo... sec iea seven ecses 0/<CRLF > 
50 040066 120 122 111 MeL IE SPRINT = *RRG" BAD SECTORS sick s cece dees cecan 1/<CRLF> 
51 040145 120 122 117 -ASCII /PRINT '‘USR* BAD SECTORS...... $2 ded die becasee 2/<CRLF> 
52 040224 117 116 117 (ASCIE: -AINITIALIZE “USR® BAD SECTOR FILE... ccecccscces 3/<CRLF > 
53 040303 120 122° 111 -ASCI] /PRINT A SECTOR OF THE LAST TRACK............. 4/<CRLF > 
54 040362 120 122 117 ASCE SPRINT THIS MESSAGE ooh odie eaee rere eye 5/<CRLF > 
55 040641 103 117 176 sABCET SCOMLINUE . cc cctac essere eee coenerasaeneccace <CR>/<CRLF > 
56 040521 200 105 176 MUTLTY: .ASCIZ <CRLF>/ENTER UTILITY FUNCTION (HELP=5): / 
57 040564 00 105 116 MESGS: .ASCIZ <CRLF>/ENTER 16 BIT "MFG" BAD SECTOR ADRS (DECIMAL) / 


ZR BO RMOS/3/2 § ORMATTER MACRO VO04.00 4-APR-81 
rE LET vee MESSAGES 
58 040642 105 116 MESG6: .ASCI 
59 Osorey 105 116 MESG?: .ASCI 
040776 105 116 MESG8: .ASCI 
61 041056 200 103 117 MESG9: .ASCI 
6¢ 041140 200 103 117 MESG1O: .ASCI 
6 ree 200 103 117 MESG11: .ASCI 
64 041310 200 103 117 MESGI2: .ASCI 
65 041376 200 120 122 MESG13: .ASCI 
66 041450 200 105 116 MSGI3A: .ASCI 
67 041502 200 104 117 MESG14: .ASCI 
68 041513 200 105 116 MESGI5: .ASCI 
69 041563 MESG16 
70 041563 200 077 125 MESG17: .ASCI 
71 041630 200 077 106 MESG18: .ASCI 
72 041665 200 077 106 MESGI9: .ASCI 
73 041732 104 117 040 MMODE: .ASCI 
74 041771 104 117 04C MSIZE: .ASCI 
75 062033 200 ae 116- MSINIT: .ASCI 
7 onthe 2v0 111 1164 INITUS: .ASCI 
77 O4214 290 111 116 INITMF: .ASCI 
78 042206 052 040 116 NOENTR: .ASCI 
79 042ec6 055 117 120 ABORT: .ASCI 
80 042255 200 C77 116 NOUPDT: .ASCI 
81 042314 00 077 116 NOINIT: .ASCI 
B2 042362 103 110 107 MSPRM: .ASCI 
042423 200 052 0$2 ae -ASCI 
EV 
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<CRLF>/ENTER 18 BIT “MFG* BAD SECTOR ADRS (DECIMAL) / 
<CRLF>/ENTER 16 BIT ‘USR' BAD SECTOR ADRS (DECIMAL) / 
<CRLF>/ENTER 18 BIT ‘USR* BAD SECTOR ADRS (DECIMAL )/ 


<CRLF>/CONTENTS OF 16 BIT “MFG* BAD SECTOR FILE (DECIMAL )/ 
<CRLF>/CONTENTS OF 18 BIT ‘MFG* BAD SECTOR FILE (DECIMAL) / 


<CRLF>/CONTENTS OF 16 BIT ‘USR* BAD SECTOR FILE (DEC IMAL) / 


if 


<CRLF>/CONTENTS OF 18 BIT ‘USR* BAD SECTOR FILE (DEC IMA; 
<CRLF>/PRINT A “SECTOR'S OF THE LAST TRACK (OCTAL)/ 
<CRLF>/ENTER SECTOR (DECIMAL): / 

<CRLF>/DONE !/<CRLF> 

<CRLF>/ENTER "MFG' BAD SECTOR ADRS (DECIMAL) /<CRLF> 
sNOT USED 

<CRLF>/?UNABLE TO WRITE ‘BSF* SUCCESSFULLY/ 
<CRLF>/?FATAL DRIVE ERROR DETECTED/ 

<CRLF>/?FAILURE DURING HEADER vy paca ata 

/DO YOU WANT TO FORMAT (L) Y ? / 

7D0 YOU WANT 16. BIT MODE (L) Y ? / 


<CRLF>/INITIALIZE BAD SECTOR FILE (L) N? / . 
<CRLF>/INITIALIZE ‘USR* BAD SECTOR FILES/ 
<CRLF>/INITIALIZE ‘MFG" BAD SECTOR FILES/ 


* NO ENTRIES */<CRLF> 
/~OPERATION ABORTED~/<CRLF ><07><07> 
<CRLF>/?NO UPDATES IN ‘VERIFY’ MODE/<CRLF> 
<CRLF>/?NO INITIALIZATION IN 'VERIFY" MODE/<CRLF > 
/CHANGE DRIVE PARAMETERS (L) N ? / 
<CRLFD>/eeeeeenkname wen / CCR F> 
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000 NAME WM OOOO NO MS Wir 
ERRRRRRRKRERRRERE 


sacl cll lb and eal wm ® ceed wah: eel ll 
Ww 
> 


MNMO--—MM 


4 RPO A SS 3 - 4 ws - 
— NWNWE MWA EWUIO & BN Mar 
me et aed eh iD eee ee a el ee we a eh a ee ed eb 
NW HOO HM - = ONIN O00 -- 
NH NAMB UININNI NO VININO F RA AO 


-SBTTL ERROR MESSAGES 


040 £M1: sASCIZ /RH CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 
105 EM: eASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

1235 EMS5: -ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 

123. EMA: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 

106 EMS: -ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

040 EM6: -ASCIZ /RH CONTROLLER DIDN'T RESPOND TO ADDRESSING/ 
101 EM: eASCIZ @TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT@ 
117 EM10: -ASCIZ /DRIVE OF FLINE/ 

122 EM11: -ASCIZ /PERSISTENT DRIVE UNSAFE ERROR/ 

103 EM1e: eASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 

106 EM13: eASCIZ /SOFTWARE TIMEOUT/ 

1711 EM14: .ASCIZ: /DRIVE UNSAFE ERROR/ 

116 EMi5: -ASCIZ a@CONTROLLER/DRIVE ERROR DURING WRITE@ 

116 EM16: eASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE CHECK@ 
124 EMI7: sASCIZ @RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE@ 
124 EM20: -ASCIZ @DATA ERROR DURING WRITE CHECKa@ 

116 EM21: sASCIZ @CONTROLLER/DRIVE ERROR VERIFYING HEADERS@ 
103 EM22: sASCIZ a@'HCE' OR 'HCRC' ERROR VERIFYING HEADERS@ 
114 EM23: eASCIZ> @CYLINDER FIELD IN HEADER IS NOT CORRECT@ 
1117 EM24: -ASCIZ @WRITE CHECK ERROR@ 

114 EM25: -ASCIZ /ILLEGAL BAD SECTOR, PACK NOT ACCEPTABLE/ 


. 
=~ sere antecedents 
Se 
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DATA HEADERS SEG 0140 
j -SBTTL DATA HEADERS 
3 045734 122 115 101 DH1: eASCIZ /RMAS- RMCS1 RMER1 RMERC = RMDS RMDC RMDA/ 
4 044002 104 122 111 DHe: -ASCIZ /DRIVE RMDS  RMER1 RMER2 RMAS RMCS1/ 
© 044054 104 122 1117 DH3: eASCIZ /DRIVE REG ADR DATA RMCS1  RMER1 = RMER2/ 
6 044125 104 122 111 DH4: -ASCIZ /DRIVE REG ADR GOOD BAD RMCS1 RMERI = RMER2/ 
7 044210 122 110 040 DH6: -ASCIZ /RH ADDRESS/ 
8 044223 104 122 111 DH10: eASCIZ /DRIVE ERR PC RMCS1 .RMCS2 RMDS RMERI RMER2/ 
9 044310 122 115 105 DHIOA: .ASCIZ /RMEC1 RMEC2 RMwWC RMBA RMDA _— RMAS RMLA/ 
10 044374 122 115 104 DH10B: .ASCIZ /RMDB RMMR1_ RMDT RMSN RMOF CYLINDER = TRACK/ 
11 044452 104 122 111 DH17: -ASCIZ /DRIVE ERR PC CYLINDER TRACK SECTOR/ 
12 044521 104 122 111 DHeO: -ASCIZ /DRIVE ERR PC CYLINDER TRACK —SECTOR/ 
13 044570 122 115 103 DH2OA: .ASCIZ /RMCS1 RMCS2 RMDS RMER1 RMER2 8MMR2 = RMECT = RMEC2/ 
14 044665 122 115 127 DH20B: .ASCIZ /RMWC RMBA RMDA RMAS _=RMLA RMDB RMMR1 =—- RMDT/ 
15 044761 122 tt 123 DH20C: .ASCIZ /RMSN RMOF CYLINDER TRACK/ 
16 045015 104 122 111 DH23: -ASCIZ /DRIVE ERR PC EXPCTD RECVED/ 
17 045054 040 040 040 DH24: -ASCII / MEMORY DISK/<CR><LF> 
18 045142 104 122 111 : -ASCIZ /DRIVE ERR PC CYLNDR TRACK SECTOR DATA DATA/ 
pb 045227 104 122 111 yen) -ASCIZ /DRIVE CYLNDR TRACK SECTOR / ; 
-EV 


Oo 
S 


5366 


RERRRERRRRR 


5464 


oO 

PELR 
Ab Abe al eal 
pace 


045562 


NM HOWO@NAWUEWR -OWOM VO UE wr 


Monn ee ee ee ee a 


001222 
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0 
035356 
046232 


001364 


DATA TABLES 
«WORD ATTN, RM. REG, RM.REG*+14,RM.REG*+42,RM.REG*+12,RM. REG* 34 RM. RE G6 

"WORD DDRIVE ,RMERRS ,RMERRS+2 ,RMERRS +4 AT IN, RMCS1 

‘WORD  DDRIVE.RD.ADR.RD.WRD,RM.REG,RM.REG*14,RM.REG*42 

"WORD DDRIVE.WRT.AD.WRT.WD.RD.WRD.RM.REG,RM.REG+ 14, RM.REG*42 

"WORD  $RMADR 

"WORD DRIVE, $ERRPC ,RBUF +6, RBUF +2 

{WORD DRIVE, $ERRPC.RM.REG.RM.REG*+10,RM.REG*12,RM.REG*14,RM.REG*42 

-WORD RM. REG+44,RM.REG+46,RM.REG+2, RM.REG*+4 RM. REG*6,RM.REG*16,RM.REG*20 

"WORD RM.REG+22.RM.REG+24.RM.REG+26,RM. REG+ 30,RM.REG*32,DS. CYL DS. IRK 

“WORD DRIVE, $ERRPC,DS.CYL.DS. TRK,BADSEC 

“WORD DRIVE. $ERRPC.DS.CYL.DS.TRK.~BADSEC 

“WORD RM.REG,RM.REG+10,RM.REG+12.RM.REG*14,RM.REG+42,RM.REG*40,RM. REG*44 ,RM.REG*46 
“WORD RM.REG+2,RM.REG+4,RM. REG+6,RM.REG*+16.RM.REG+20.RM.REG*22_RM.REG+24 RM _REG* 26 
"WORD RM.REG+30,RM.REG+32,DS. CYL .DS.TRK 

“WORD DRIVE, SERRPC,RBUF +4 .RBUF 

-WORD DRIVE, $ERRPC.DS.CYL.DS. TRK,BADSEC, $GDDAT RM. REG*22 

“WORD RM.REG,RM.REG+10,RM.REG+12,.RM.REG*+14,RM.REG+42,RM. REG+40,RM.REG*44 RM. REG*46 
"WORD  RM.REG+2,RM.RkEG+4 , RM. REG+6, RM. REG+16.RM.REG+20.RM.REG+22_.RM.REG+24 RM. 956926 
“WORD RM.REG+30,RM.REG+32,DS.CYL.DS.TRK 

"WORD DRIVE, FMTOPB+12,DS. TRK .BADSEC 


ZRMLBO RMOS/3/2 © ORMATTER 


DATA FORMAT TABLES 
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37 045746 
38 045750 
39 045752 
40 045754 
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M1 


-SBITL DATA FORMAT TABLES 


DFi: 
DF2: 
DF3: 
DF4: 
DF6: 


DF10: 


DF17: 
DF 20: 


DF23: 
DF 24: 


DF 25: 


1 
-BYTE 7,9 


@ 
< 
—" 
m 
See ee en See SA 
. . 
Ros 
ad 


1 
0 


TRM. BO 
BUSADR - 


wld 


045756 


WD DONAUEWR $0 O@NAMbBwrd 


MINGAPINY  @ SH ee PR os Ss ee 


38 046072 
39 046074 
40 


41 046076 
42 046105 


005737 


012021 
000207 


122 
122 


kMO5/3/2 FORMATTER 


001374 
001374 
001205 


001274 
046076 


036621 
046114 
001276 
046105 
036621 
046114 


001274 
030456 


—— 
—— 
WW 
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GET BUS ADDRESS SND VECTOR ADDRESS FOR RH/RM 


103 
126 


N 11 
51 


-SBITL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM. 


sTHIS ROUTINE 15 USED TO INSURE THE BUS ADDRESS 
:OF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 
z1T WILL ALSO READ THE ADDRESS FROM THE TTY IF 


1 


;REQUIRED 
ZNOTE : 


CALL 


JSR 


RETURN 
BUSADR: an 


$: MOV 


2$: MOV 


3$: MOV 


MRMCS1: 
MRMVEC: 





PC,BUSADR 
CHGADR 

3$ 

CHGADR 
-$CRLF 
ASRMADR ,RO 
-MRMCS1 
(RO) ,-(SP) 
»-BLNKS2 


(SP)+,R1 
oo 


ge -RO 
(RO) ,-(SP) 
-BLNKS2 


(SP)+,R1 
R5,CK.NUM 
2$ 


(RO) +, (R1)+ 
(RO)+,(R1)+ 
PC 


-ASCIZ a@RMCS1=a 
-ASCIZ  aARMVEC=a 


THIS ROUTINE DESTROYS RO-R4 


: INPUT FROM TTY REQUESTED? 
‘DISABLE CHANGE OF RH/RM ADDRESS 
HEARST A ADDRESS 

PRESENT RMCS1 ADDRESS 

PERE 17 


3 TYPE 2 SPACES 
;GET THE ENTRY 
sADDRESS OF ASCII TEXT 
sENTER AND STORE NEW ADDRESS 
ERROR RET 
2 CHECK VERC 
7 RMV 


: PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
; TY 

sTYPE 2 SPACES 

TREAD THE ENTRY 

TASCII TEXT ADDRESS 

:ENTER AND STORE NEW ADDRESS 

ERROR RET 

:FIRST ADDRESS OF NEW PARAMETERS 
sFIRST ADDRESS OF WHERE TO PUT THEM 
;BUS_ADDRESS 

: VECTOR ADDRESS 

RETURN 


SEQ 014% 


SOR UB at 


13 046114 
14 046116 
15 046120 
16 046122 
? 26 


44 046222 


910246 


0C0060 


177770 


ete 


- SBTTL 


12 
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CK.NUM = CHECK NUMBER (OCTAL) 


7THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
;AND FORMS AN OCTAL NUMBER IN R2 
sCALL: 


MOV #ADR,R1 : 
RO=ADDRESS TO STORE THE 


JSR 
RET] 
RET2 


CK.NUM: MOV 


1$: 


2$: 
3$: 


4$: 
5$: 


ADDRESS OF. ASCIZ STRING 
NUMBER 


RS,CK.NUM 
ERROR RETURN 
NORMAL RET 
R2,-(SP) sSAVE R2 
R3,-(SP) ZSAVE R3 
R4,-(SP) ; SAVE R4 
#6,R3 7MAX OCTAL DIGITS IN THE NUMBER 
R2 sFINAL OCTAL VALUE 
(R1)+,R4 3GET CURRENT POINTED BYTE 
3$ ;BR IF TERMINATOR DETECTED 
R4,4°0 7 SMALLER THAN * tial 

5$ :YES,ERROR EXIT 

R4,4'°7 LARGER THAN ASCII=7 ? 
5$ TYES,ERROR EXIT 

R2 ;SHIFT LEFT 

5$ ; 

R2 7 ONE 

5$ ; 

R2 sOCTAL DIGIT 

sERROR IF CARRY BIT SET 

#177770,R4 :CHOP OFF HIGHER BITS 
R4_R2 :APPENDING CURRENT DIGIT 
R3 :DECREMENT BYTE COUNT 

2$ ;BR IF LAST DIGIT 

1$ ;LOOPING BACK 

(R1)+,R4 ae TERMINATOR 

5$ BR IF NOT FOUND 

R2 FINAL VALUE = 0 ? 

4% c¥ES 

R2, (RO) > REPLACE THE ee VALUE 
(R5)+ TADJUST + eb iaate RET 
(SP) + ,R4 ;RESTORE 

(SP)+,R3 RESTORE R3 

(SP) *,R2 TRESTORE R2 

R5 TEXIT 





¢ - 
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WRITE Bue SEO 0144 
} -SBITL READ/WRITE BUFFERS 

Z BUFFER STARTS HERE 

2 Csegae 000000 GO0000 CO000O RBUF: .WORD 0,0.0.,0 jRUFFER FOR HEADER CHECK 

7 066234 BUFP: .BLKW <258.*32.> FORMAT AND CHECK BUFFER STARTS HERE AND 

] WILL OVERLAY ALL REMAINING CODE IN PROGRAM 

9 106634 BUFV: .BLKW <258.*32.> ;BUFFER FOR VERIFY ONLY MODE 

mW 

}1 000200 ~END 200 


a 





ae en ht ee 
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SYMBOL TABLE 
ABASE = 176700 ASK 3A 011514 
ABORT 042226 ASWREG= 000000 
ACDW1 = 000000 ATA = 1 
ACDW2 = 000000 ATABIT 030444 
ACK = 000123 ATESTN= 000000 
ACPUOP= 000000 ATTN 001370 
ACTDRV 030404 ATO = 000001 
ACTSTR 0304605 AT1 = 000002 
ADDRIS 037506 AT2 = 000004 
DwO = 000000 AT3 == 000010 
ADDW1 = AT4 = 000020 
ADDW10= 000000 AT5 = 000040 
ADDW11= 000000 AT6 = 000100 
one. 000000 AT7 = 000200 
ADDW1 $= 0 AUNIT = 000000 
ADDW14= 000000 AuUSWR = 000000 
ADDW15= 000000 AVECT1= 000254 
ADDWe = 000000 AVECT2= 000000 
ADDW3 = 000000 A16 = 000400 
ADDW4 = CO00000 A17 == 001000 
ADDWS5 = 000009 BADENT 037174 
DwW6 = BADSEC 001344 
ADDW7 = 000 BADTMO 006730 
ADDW8 = 000000 BAI = 000010 
ADDW9 = 000000 BITO = 000001 
ADEVCT= 000000 BITOO = 000001 
ADEVM = 000000 BITO1 = 000002 
ADRTBL 006064 BITO2 = 000004 
AENV = 0 BITO3 = 000010 
AENVM = 000000 BITO04 = 000020 
AFATAL= 000000 BITOS = 000040 
AMADR1= 000000 BITO6 = 000100 
AMADR2= 000 BITO7 = 020 
AMADR3= 000000 BITO8 = 000400 
AMADR4= 000000 BITO9 = 001000 
AMAMS1= 000000 IT1_ = 000002 
AMAMS2= 000000 BIT10 = 002000 
AMAMS3= 000000 BIT11 = 004000 
AMAMS4= 000000 BIT12 = 010000 
AMSGAD= 000000 BiT13 = 020000 
AMSGLG= 000000 BIT14 = 040000 
AMSGTY= 000000 BIT15 = 100000 
AMTYP1= 000 BIT2 = 000004 
AMTYP2= 000 BIT3 = 000010 
AMTYP3S= 000000 BIT4 = 000020 
AMTYP4= 000000 BITS = 000040 
A = 001000 BIT6 = 000100 
APASS = 000000 BIT? = 000200 
APRIOR= 000000 BiT8 = 000400 
APTCSU= 000040 BIT9 = 001000 
APTENV= 000001 BLNKS1 036622 
APTSIZ= 000200 BLNKS2 036621 
APTSPO= 100 BLNKS3S 036620 
ASKO 010714 BLNKS4 036617 
ASKi 011000 BPTVEC= 000014 
ASK2 011124 BSE = 100000 
ASKS 0114464 BSFAVL 001404 
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RuUFP 
BUF V 
BUSADR 
BYTE16 
BYTE18 
a 
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046234 
106434 


3 


=) 
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Dz 
eit 


J 

~ 

wn cy 
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045015 


043034 
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TAMLBO RMO5/3/2 FORMATTER 

SYMBOL TABLE 

IBSAVE 023756 MPE = 000400 PFECH3 024360 RE JEND 
] = 000190 MRD = 20 PFECHS 024370 RELSE = 
ILF = 1 MRMCS1 046076 PFTSIN 024374 REPLZ 
ILR = 2 MRMVEC 046105 PGE = 002000 RESET 
INITMF 042143 MSCMPT 037427 PGM = 001000 RESREG= 
INITUS 042100 MSELD 037021 PIP = 020000 RESTRT 
INSERT 021160 MSFOR 037315 PIRQ = 177772 RESVEC= 
IOTVEC= 000020 MSGBLK 037740 PIRQVE= (000240 RE TBAD 
IR = 100 MSG13A 041450 POPQUE 036340 RETRY 
ISR 033114 MSINIT 042033 PRO = 000000 RMADR 
iF = 12 MSIZE 041771 PR1 = 000040 RMAS = 
LODEV 936521 MSPRM 042362 PR2 = 000100 RMBA_ = 
1OP.CK 016646 MSQVER 037337 PR3 == 000140 RMCS1 = 
LST = O02 MSTCK = 000010 PR4 = 000200 RMCS2 = 
LSTRK 9013246 MSVER 037376 PRS = 000240 RMDA = 
MADRER 037215 MUNIT 036573 PR6 = = 000300 RMDB = 
MANTER 022702 MUSDR 036751 PR7 = 000340 RMDC = 
MAXCYL 001326 MUTLTY 040521 PS = 177776 RMDS = 
MAXSEC 1360 MVERFY 037062 PSEL = 002000 RMDT = 
MAXTRK 901332 Mw 001352 PSW = 177776 RMEC1 = 
MCLK = 2 MWR = 000040 PWRVEC= 000024 RMEC2 = 
MCPE = 020000 MxF = 001000 QCNT 035652 RMERRS 
MCPEMK 030454 MXWNDW 030464 QDRVO 035744 RMER1 = 
MDRNP 036675 MI6BIT 037106 QDRV1 035764 RMER2 = 
MER11 036722 MI8BIT 037141 QDRV2 036004 = 
MESG1 037533 NBA = 100000 QDRV3 036024 RMINIT 
MESG1O 041140 NED = 010000 QDRV4 036044 RMLA = 
MESG11 041224 NEM = 004000 QDRV5 036064 RMMR1 = 
MESG12 0413510 NEXT 005536 QDRV&é 036104 RMMR2 = 
MESG13 041374 NOENTR 042206 QDRV7 = 036724 RMOF = 
MESG14 041502 NOINIT 042314 QINPT 035662 RMR = 
MESG15 041513 NOTPRS 036474 QOUTPT 035702 RMSN = 
MESG16 041563 NOTRM 036453 QSTART 035722 RMTMR 
MESG17 041563 NOTSAF 036511 QSTOP 035724 RMVEC 
MESG18 041630 NOUPDT 042255 QTERM = 036144 RMWC = 
MESG19 041665 NUMERR 037442 RBUF 046224 RM.REG 
MESG2 037572 OFDIR = 000001 RDCHR = 104410 RMOS 
MESG3 037643 OFFSET= 000115 RDDAT = 000171 RIC. = 
MESG4 037704 OPI = 020000 RDHD = 000173 R6 2 
MESGS 040564 OPT 031506 RDLIN = 104411 7 = 
ME SG6 0642 R = 000200 RDY = 000200 SAVEFG 
MESG7 040720 O.ENTR 017642 RD.ADR 035134 SAVREG= 
MESG8 040776 PACKSN 037473 RD.RM 035110 SAVWC 
MESG9 041054 PAR = 000010 RD.RM1 035132 SC 
MF s 100 PARENT 020032 RD.RM2 035256 SCAWC 
MFG16 001414 PAR} 05754 RD.RM3 035262 SCOPE = 
MFG18 2420 PAR2 005764 RD.RM4 035266 stot = 
MFORMT 037033 PAR3 005774 RD.WRD 035136 st02. = 
MINCYL 001330 PARG 006004 READIN= 000121 SC04 = 
MINTRK 001334 PARS 006014 RECAL = 090107 SC10 = 
MINX = 4 PAR6 006032 RECORD 020146 Sci} 
MLODEV 036771 PAT = 000020 REJCT1 016430 SCle2 
MMODE 041732 PATA 001336 REJCT2 016442 $C13 
MODE 001320 PATB 01340 REJCTS 016464 SCe0 = 
MOF FL. 036654 PFECH 024234 REJCT4 016476 $¢c3 
MoH = =_-« 20000 PFECHT 024244 REJCT5 016510 SC4 
MOL = 070000 PFECH2 024326 REJCT6 016522 Sc5 


016534 


esescseeseooe=> 
SSR SasScer ran 
SAskVISNRsS 


anmaawy 
COWEROOWM 


secracs 
—— Won 
SSae le al Da 


000100 
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rr 
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$ILLUP 
$INTAG 


030276 
001151 


001130 
001 


036550 
016364 


SSAVRE 


027752 
30302 


000 
026441 


= 061100 














SERTTL 
$ESCAP 


$F TABL 
$E TEND 
$FATAL 
$FFLG 


FORMATTE 
TABLE (C 


ima 


35-18 


5-64 
41-1 


4l-'8 

41-18 

41-14 
ga318 
G82 


34-1 
58-14 


10-10 
19=1 

34-18 
19-14 


9-79 
9-BS 


12-8 


31-1 


52-18 


9-26 
31-1 


10-69 
giegs? 
2o=1 


29=1 
19-1 


15=216* 
45-775 


Ginte 


13-6 


31-1 


31-14 


10-174 
24-12 
30-26 


41-1 
41-1 


29-1 


e9~1 
16-21% 
45-831 


11-7 
24-25 
30-31 


41-1 


30-79 


29-1 
16-39 
45-833 


1322 
24-58 
50-41 


49-8 


e9-1* 
16-45* 
45=-:19 


21-231 


13-27 
24-71 
30-55 


49-9 


16-91% 
45-;78 


31-1 


13-390 
24-07 
30-68 


49-12 


18-49s 
45-=82 


14-12 
24-89 
311 


49-13 


18-768 
45==92 


20-3 
24-104 
31-1 


49-17 


1G=1s 
45: 93 


20-7 
24-106 
31-1 


49-12 


20-8" 
65-=95" 


20-12 


24-196 


31-1 


21961 


$RDCHR 
S$RDDEC 


RMOS/ 4/2 FORMATTER ms, 
EERRENCE TARLE COMER YOTHOS 
6-08 32~" 32=1 
t-0e t2—1 3201 
6-08 
4-08 oGais 49-18 
19=20 19=14 
si-'s 43-7 437-1 
4762 4-62 4-62 
5-88 
6-08 
44-1 44=1 44-18 
6-0 31-1 31-1 
6-08 29-1 29-1 
6-08 29~1 29=1 
41-18 41-it 
7-08 21-167* 
7-0# 21-162 3821-168" 
7-04 21-172 21-177 
7-0" 21-173 
6-04 
6-08 17-39 15-1948 
7-O# 21-163 
6-04 
6-04F 
6-04 
6-04 
5-8 5-8 6-04 
6-048 
6-08 
6-04 
6-04 
5-84 
41-1 41-14 4lo1* 
31-1 31-14 
6-04 41-1 41-1* 
6-04 41-1* 
6-04 41-1 41-1 
31-1 31-14 
6-04 
6-04 
6-04 
6-0F 
6-04 32-1 32-1 
9-214 
33-14 33-1* 33-1* 
40-1 40-14 
33-1 33-18 35-1* 
6-0" 9-26% 19-1 
5-84 
44-1 44-24 
44-18 
9-26 44-1 44-18 
44-18 
44-1 44-14 
6-04 29-3 29-1 
43-1 
si-l2 3-1 43-1 
47-" 


31-1 
29-1 
31-1 


16-78 


9=21 


4l-1* 


41-1* 


owe 


18-25* 


9-26 


41-1 


7B: 


21-39 


+31 


5t67 


29-1 
52-1 


29-1 


29-1 


5i=1 


39:56 PAGE S-2 


29-18 
32-1 


se! 


32=1 


30-8 


32-1 
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ROSS REFERENCE TABLE (CREF VO1-05 } Fu 


SRDLIN 31-18 43-1 4%a1 
SADOCT 43-1 
$ADS2 37-1 31-18 


ERESRE 42-18 43=1 

SRHEXT 45-164 6521935 S5e«17 
$RMO2 9-140 46-94 

$2M03 9-137 46-104 


$SKMADR = 7=0# 9-73 9-84" 9-85 49-7 51217 1-35 


$RTNAD 19-14 
SSAVR6 44-1 44-18 44-1* 44-1* 44-1* 
$SAVRE 42-14 43-1 43-1 


| $SB2D) 21-2469) «21-255 3 25-18 ga-23 25-28 37-18 


$SETUP 4-266 4-266 4-266 4-266 4-266 4-2668 4-2668 4-266 4-266 9-26 9-26 9-26 9-26 9-26 
9-26 9-26 9=26 9-26 9-26 9-26 9-26 9-31 9-31 9-31 19=1 19=1 291 29-1 


3 St+1 
$STuP 4-266 4-266 4-266 4-266 4-2664 4-2668 4-2664 4-266 4-266 44-2664 4-2668 4-266 


SSUPR2 35-14" 35-19% 35-29 35+31« 35~330 
SSUPRL 21-250 21-256 25-19 25-24 23-29 26-13 26-21 35-124 


$SVPC 5-5 5-54 

$SwR 4-534 4-62 4-63 4-63 4-63 4-63 4-63 4-63 4-63 4-63 6-0 6-0 4-0 9-21 
9-26 19-1 19=1 19=1 19-1 19-1 29-1 29-1 29-1 29-1 29-1 29-1 29-1 29-1 
29-1 29-1 29-1 44-1 

$SWREG 6-04 9-26 

$TESTN 6-08 9-21% = =21=102% 21-141% 22-17 22-23% 30-11 30-14 

$TKB 6-04 21-225 21-239 31-1 31-1 31-1 31-1 31-1 31-1 31-1 32-1 32-1 

SIKCNT 31-1 3i-1 31-14 31-1* 31-1* 31-1* 

$TKINT 9-68 10-118 12-11 13-5 19-6 21-188 = 31-1 31-1 31-18 

$TKQEN 31-1 -1 31-14 

$TKQIN 31-1 31-1 31-14 31-1* 31-1* 31-1* 3i-i* 

$TKQOU 31-1 31-1 31-14 31-1* 31-1* 31-1* 

$TKQSR 31-1 31-1 31-1 31-14 

$TKS A ad 21-240* 31-1 31-1 31-1 31-1 31-1 31-1* 3l-1* t1-1* 31-1 31-1* 51-|* -) 

$TKSRV 31-1 31-14 

T 6-04 13-16* 13-17 13-19 13-21 13-23 13-31 

$IN 4-544 4-62 9-21 9-21 9=21 9-218 

$TNPWR 38-1 38-1 38-14 

$TPB 6-04 32-1 32-1 32-1* 

$TPFLG 6-04 32-1 32-1 32-1 
6-04 32-1 32-1 32-1 

$TRAP 9-26 43-14 

$TRAP2 43-1 43-18 

$TRP 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43~} 43-1 43-1 43-1 43-1 43-1 
43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 
43-1 43-1 43-1 43-1 43-1 43-1 45-1 43-1 43-1 43-1 43-1 43-1 43-1 43-1 
43-1 43-1 43-1 43-14 43-14 43-14 43-14 43-14 43-14 43-14 43-14 43-18 L3-18 43-18 

$TRPAD 43-1 43-18 

$TST™M 5-84 

STSTNM 6-08 29-1 29-1 29-1 

$TTVYIN 31-7 31-1 31<7 Si-] 37-7 31-14 

$TYPBN 43-17 


$TYPDS 34-18 43-1 43-1 


SaenEEEEEnenenEeanaeeetio oo 
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ROSS REFERENCE TABLE (CREF VO1-05 ) 
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Sr yPE 22-148 41-1 43-1 43-1 
STYPEC 31-1 Z2-7 32-1 32-1 32-14 
S'YPEX 32=1 30-1 32-18 
$TYPOC 33-14 43-1 43-1 
$TYPON 33-1 33-14 43-1 
$TYPOS 33-14 43-1 
| SUNIT 6-08 7-0 
SUNITM 5=84 
SUSWR 6-04 
$VECT1 6-04 9-78 9-80 
$vECT2 6-08 
SXOF F 32=1 32-1 
$X0N 31-1 32-1 32-1 
-SASTA 41-1 41-1 
. $x 5-2 5-84 
Al6 4-764 
Al? 4-774 
ABASE 4-2638 -0 6-0 
ABORT 20-29 46~798 
ACDW1 6-0 -0 
ACDW2 6-0 6-0 
ACK 4-2514 
c 6-0 6-0 
ACTDORV 45-934 45-348* 45-399% 45-692* 45=700* 45-987 
ACTSTR 45-99  45-989% 45-:03* 
ADDRIS 21-246 46-434 
ADDWwO 6-0 
ADDW1 6-0 
ADDW10 = 6=0 
ADDW11 6-0 
ADDW1i2 6-0 
ADDW13 6=0 
ADDW14 6-0 
ADDW15 = 6=0 
ADDwe 6-0 
AdDW3 6-0 
ADDW4 6-0 
ADDW5 6-0 
ADDW6 6-0 
ADDW?7 6-0 
ADDW8 6-0 
ADDW9 6-0 
ADEVCT 6=0 6-0 
DE -0 6-0 
ADRTBL = 7=04 15=191 16-55 19=] 24-194 
AENV 6-0 6-0 
AENVM 6-0 6-0 
AFATAL 6-0 6-0 
AMADR1 6-0 6-0 
6-0 6-0 
AMADRS 6-0 6-0 
AMADR4 6-0 6-0 
AMAMS 1 6-0 6-0 
AMAMS2 6-0 6-0 
AMAMS3 = 6 =0. 6-0 
AMAMSG = 60 6-0 
AMSGAD 6-0 6-0 


L 12 
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ROSS REFERENCE TABLE (CREF VO1205 > 


AMSGLG 6-0 6-0 
AMSGTY = 6=0 6-0 
AMT YP) 6-0 6-0 
AMTYP2 = 6=0 6-0 
AMTYPS 6-0 6-0 
AMTYP4 6-0 6-0 
4-1478 
APASS 6-0 6-0 
APRIOR 6-0 
APTCSU 32-1 41-14 
APTENV 29=1 32-1 41-1 41-14 
APTSIZ 9-26 41-14 
APTSPO 32-1 41-1 41-14 
ASKO 10=6 10-8 10-674 
ASK1 10-894 10-101 
ASK2 10-1174 10-127 10-135 10-148 10-153 10-156 19-11 


ASWREG 6-0 6> 

ATO 4-1678 

AT1 4-1684 

AT2 4-1694 

AT3 4-1704 

ATS 4-1714 

ATS 4-172 

4T6 47-1734 

AT7 4-1744 ; 

ATA 4-1344 

ATABIT 9-132 10-40 10-48 45-1454 45-319 45-411 45-516 45-896 45-924 45-932 45-933 45-955 45-:52 

ATESTN 6-0 6-0 

ATIN 7-08 29-1* 49-3 49-4 

AUNIT 6-0 6-0 

AUSWR 6-0 6-0 

AVECT1 4-2644 6-0 6-0 

AVECT2 6-0 6-0 

BADENT 10-81 10-100 10-126 10-190 12-66 21-200 921-283 =©24-206) =. 27-27 46-344 

BADSEC 7-0 7-0 7-0 7-04 13-35* 16-16% 16-18% 16-19% 16-20* 16-52 16-53 17-14% 19-1 19=1 
19=1* 19-1* 21-316 22-89 22-95 23-17 23-25 24-222 = 24-224 24 229% = 24-2352 §=—24-234 = 24 -239% =49-12 


4-944 
BITO 4-684 
T 4-68 4-684 29-1 25-1 


4-68 4-684 21-43 45-391 . 45-656 


06 4-68 4-684 45-329 45-382 45-455 45-735 45-<43 
07 4-68 4-684 45-329 45-597 45-712 45-850 45-866 45-886 45-928 45-<04 


4-68 4-684 21-19 29-1 a ed 45:40 
1-43 29-1 45-658 


2 
4-654 21-16 45-282 45-418 45-619 45-973 z 
21-43 45-276 45-310 45-329 45-393 45-426 = 45-609 = 45-654 945-670) = 45-876 = 45-878 452312 


CZRMLBO 
CROSS R 
BIT13 4-684 
BIT14 4-684 
SIT15 4-684 
45-619 
BIT2 4-684 
BITS 4-684 
BITS 4-684 
BITS 4-688 
BITé 4-684 
| BIT? 4-684 
| BITS 4-684 
BITS 4-684 
BLNKS1 14-10 
| BLNKS2 = 9=134 
BLNKS5 46-208 
BLNKS4 9-104 
SPTVEC 4-684 
| BSE 4-2284 
| BSFAVL 7-04 
BUFP 7-0 
7-0 
7-0 
11-135 
22-46 
BUF V 18-16 
SUSADR 9-72 
BYTE16 7-04 
BYTE18 7-04 
C 21-247 
C.ENTR 10-117 
CALIN 13-54 
CHGADR 7-04 
C11 45-445 
C13 45-447 
C14 45-439 
C15 45-495 
C16 45-535 
C17 45-378 
45-568 
C17B 45-6244 
C18 45-627 
CK.CHR 10-124 
CK.DEC 28-284 
CK.DIG 21-280 
CK. 51-24 
CK.OCT 28-104 
CKSWR 29-1 
CKTRK 16-64 
CLOCK 21-164 
CLR - 
CLRQUE 45-216 
CNTLC 7-04 
OLON 10-121 
CPSAVE 29-1 
CR 4-684 
CRLF 4-684 


RMO5/3/2 FORMATTER 
EFERENCE TABLE (CREF vO1-05 ? 


21-10 
17-11 
12-25 
45-656 
21-10 


10-7 

46-224 
21-251 
46-194 


46-¢ 


M12 
MACRO V04.00 4-APR-81 18:39:56 PAGE S-6 


21-43 
17-13 


24-200 


21-215 
51-13 


45-5974 
45-547 
45-485 
45-589 


45-770 
28-87 


27-17 
52-134 


43-18 
21-2084 
10-140 


45-<954 
10-117* 


46-25 


1§=123 
45-735 


30-51 


11-114 
7-0 
7-0 
iQ 

15-115 

22-56 


21-245 
51-15% 


45-607 
45-549 
45-489 
45-606 


45-:67 
28-95 


27-20 


45-234 
21-245* 


46-26 


45-850 


30-60 


45-6034 
45-493 
45-6094 


27-23 


45-681 
31-1 
29-1 


9-45 
46-27 


45-821 
45-388 
15=142 
45-866 


30-71 


45-502 
45-716 


28-814 


31-1 
29-18 


9-56 
46-28 


46-214 


15-63* 


29-1* 


9-62 
46-32 


45-806 
15-172 
45-886 


51-21 


45-515 


45-<16 


29-1 


9-63 
46-33 


45-965 
45-376 
45=966 


51-30 


45-527 


45-:76 
45-388 
45-:40 


11-79 
21-149 


45-534 


32-1 
46-35 


45-322 
45-391 
45=:76 


11-81 
22-12 


45-540 


44-2 
46-36 


65=;26 
45-393 
45=:84 


7-0 
7-0 
11-84 
22-26 


45-544 


46-12 
46-37 


7~0 
11-118 
22-40 


45-558 


46-13 
46-37 


7-0 


7-0 
11-126 
22°43 


45-565 


46-23 
46-38 


rr 


“2RMLBO RMOS/3/2 FORMATTER 


DRO 
DRVACT 


DRVCLR 


DRVSTA 


DRVTYP 
DRY 
DS.CYL 


46-38 46-39 
46-53 46-54 
46-67 46-67 
46-81 46-81 
4-1534 16-33 
4-684 6-0 
7-04 29-1* 
7-04 9-99* 
19=1* 21-233* 
8-7 50-34 
8-56 8-63 
8-105 50-194 
8-14 50-54 
8-112 50-214 
50-294 
8-140 50-314 
8-49 8-133 
8-21 50-74 
8-28 50-94 
8-42 50-114 
8-5 48-34 
8-54 8-61 
48-94 50-15 
48-104 50-17 
8-103 48-114 
8-12 48-44 
8-110 48-124 
48-134 50-25 
48-144 50-25 
48-154 50-27 
8-47 8-131 
8-138 48-178 
8-145 48-19% 
8-19 48-54 
8-26 48-64 
8-40 48-74 
6-04 9=-26* 
5-14 9-26 
4-106 
4-157# 
19=1 19-1 
45-618 645-265 
4-1278 
45-704 45-364 
7-04 10-47 
49=22 
4-1904 
45-304 45-372 
45=-:45* 
4-2468 
45-236 45-2708 
45-367 45-380 
9-105 10-49 
45-562 45-386 
9-109 136 
4-126 
7-0 7-0 


N 12 
MACRO V04.00 4-APR-81 18:39:56 PAGE S-7 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


46-39 
46-55 
46-68 
46-83 
9-26 
49-4 
9-132* 
21-234" 


8-70 


8-147 


8-68 


1 
4 
45-412* 
10-129* 


45-552 


45-360 
45-=354 
10-144 
45~420 
10-57 


7-0 


46-40 46-44 
46-56 46-57 
46-68 46-70 
46-83 
49-5 49-6 
9-133 9-133 
8-77 8-84 
50-394 

8-75 8-82 
29-1* 
45-358 45-790 
45-449 45-629» 
10-158 = 11-25 
45-600* 45-631* 
45-945 45-959 
45-408 45-226 
45-424 45-555* 
10-150 = 10-163 
7-08 13-33» 


46-45 
46-58 
46-71 


9-151 


8-91 


8-89 


45-817 
45-646 
14-8 


45-644 


45-2278 
45-684" 
45-524 


23-13 


46-46 

46-59 

46-72 
9-151* 


8-98 


8-96 


45-956 


45-664* 
21-53 


45-663* 


46-47 
46-60 
46-75 
10-12 


8-119 


8-117 


45-958* 


45-793 
2e-91 


45-705* 


46-48 46-48 46°49 
46-61 46-62 46-63 
46-76 46-77 46-78 
10-13* 10-18 10-40 
8-126 50-134 

8-124 48-84 

45-:31 45-:54 45-:60 
45-:33 45-:56 45-:62 
49-8 49-9 49-12 
45-813 45-848 45-880* 
45=-239% 45=-271* 45-281* 
45-819 45-874* 45-881* 
45-293* 45-298 45-303* 
24-29 24-62 24-75 


10-48* 


45=-:70* 


45-:80* 
49-13 


45-888" 


SEQ 0156 
46-51 46-52 
46-65 46-66 
46-80 46-80 
19=7 19-1 
49-17 49-18 
45-908 45-923 
45-331" 65-354 
45-961 45=-:718 
45=-685* 
29~ 7 * 49-9 


B 13 
ZRMLBO 8MO5/3/2 FORMATIER MACRO ¥O04.00 4-APR-81 18:59:56 PAGE S-8 


ROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0157 
49-12 49-73 49-16 49-78 = 49-21 
DS.TRK 87-0 7-0 7-9 7-Om 13-342 20-9 23-15 23-24 29-18 49-11 49-12 49-13 49-16 49-18 
49=21 49~22 
DSwR 4-658 6-0 9-26 
DT00 46-1818 
D101 44-1828 


DT10 8-55 8-62 8-69 8-76 8-83 - 8-90 8-97 8-118 8-125 49-98 


DT3 8-20 49-54 
DT4 8-27 49-64 
DT6 8-41 49-74 
DT7 8-48 49-84 
OTE 64-1504 16-33 
prsy 46-1634 


DTUW 45=1359% 45-222 45-441 45-494% 45-638* 45-649 45-665 45-667* 45-678* 45-695 45-706* 45-:36 45=:48* 45=;20 


ECH 64-1444 

EC] 4-2154 

EM! 8-4 47-34 
EM10 8-53 47-104 
EM11 8-60 47-114 
EM12 8-67 47-124 
EM13 8-74 47-134 
EM14 8-81 47-144 
EM15 8-88 47-154 
EM16 8-95 47-164 
EM17 8-102 47-174 
EM2 8-11 47-44 
EM20 8-109 47-184 
EM21 8-116 47-194 
EM22 8-123 47-204 
EM23 8-130 47-214 
EM24 8-137 47-224 
EM25 8-144 947-2354 
EM53 8-18 47-54 
EM, 8-25 47-64 
EMS 47-7# 

EM6 8-39 47-8F 
EM? 3-28 47-98 
EMPTYQ 45-628 45-683 45-736 45-:85 45==208 


EMTVEC 4-684 9=26* G=26* 


INDX 6-22 18-50 191 21-54 
ERR 4-133# 16-46 18-58 


. 


TRM.BO RMOS/3/2_ FORMATIER 
ROSS REFERENCE TABLE (CREF vO01-05 > 


aM 


22-110 


22-108 
29=1* 


22-97% 


29-18 


22-96* 


29-18 29~1* 


22-105 
29-1 


36-394 
22-98 
29=1 


36-36* 
21-110 


29-1 


29-1 


4-748 
4-1384 
4-1394 


GE TREG 
IBSAVE 29-1 


TAE 
IE 

ILF 
ILR 


46-778 
46-768 


INI TMF = 24-132 
24-18 


| 


24-64 24-77 24-230 39 24-240 


24-31 


ee eerste nnniennnihinsteneniveisnsiiniit wes nitneinmesneienrcetaeegte- op--~eernne 


7RML BO RMOS/3/2_ FORMATIER MACRO V04.00 4-aPR=B1 18:39:56 PAGE S=10 
ROSS REFERENCE TABLE (CREF yOT-05 ) SEQ 015% 
LF 4-688  32=7 32-1 48-17 


LODE v 9-128 46-84 
LOP.CK 15=211 16-85 18~95 21-378 


LS TRK 7-08 10-60" 10-166" 11-27 11-71 15-23 18-29 18-80 19=1 22-21 22-101 


MANTER 26-13 25-26 24-59 24-72 24-216 27-88 

MAXCYL 7-0 7-04 10-26% 10-160" 10-197 18-122 18-124 21-77 2 

MAXSEC 7=O# 10-32% 10-38" 10-106" 10-112" 15-1353 15-145 15-152 1 
21-123 3=—21-148 = 22-17 22-18* 22-23% 

MAXTRK 7=0 7-0" 10-61* 10-167* 10-202 18-117 21-68 s 


1 
77 ~=—s_: 16-18 16-56 16<79 18*700 9 21-101 


| MCPEMX 45-157# 45-:02 65-:48 
MORNE 4 


| MESGI4 24-152 24-182 46-678 


MESG17 20-13 46-708 
MESGI8 20-17 46-714 
MESG19 -21 46-724 
MESG2 21-185 46-454 
MESG3 20-25 46-464 
MESG4 20-4 46-47 
MESGS 24-11 46-578 
MESG6 24-24 46-584 


MESG7 24=57 46-594 


12-15* 12-24 lW2-25* = T2-26* le-27* 12-28% 12-29" 12830" i2-31*e 12-32 
2-38* 12-39% 12-40" 12-41" 12-42 12-43% 12-46" 812-52 12-54 12=57* 12-59 
12-63 12-64 15-40 2e~e25 22-39 24-19 24-22 24-91 24-1355* 26-136" 24-137 


MFG18 7-04 11-96 11-127 12-59" = 12-64" = 15-43 22-42 24-32 24-35 24-96 24-143% 24-164" 24-165 24-246) 


24-247 
MFORMT 11-12 46-304 
MINCYL 7=0 7-08 10-235* 10-159" 10-197 21+59 21-104 22-17 22-20" 22-25" 
MINTRK 7=0 7-08 10-22e 10-161" 10-202 18-116 § 21-58 21*75 2t=106 = 212125. 22-17 22-21" 22-23% 


7-0" 10-26* 10-68* 10-84% 11-8 14-17 18-8 18-20 18-98 24-6 24-41 24-127 = 2b=157 


4-1918 

46-1318 
MPF 4-994 
MR 4-1618 


D 
MRMCS1 5121 Si-4l8 


ZRM_BO RMO5/ 3/2 


MRMVEC S1=27 
MSCMPT 19] 

L 46-294 
MSFOR 14-20 
MSGI3A 24-189 

SGBL 13=15 
MSINIT 21-189 
MSIZE 10-89 
MSPRM 10-179 
MSQVER 18-10 
MSTCK 4-1604 
MSVER 18-12 
MUNIT 10-120 
MUSDR 10-147 
MUTLTY 13=14 
MYFRFY 11-10 
Mw 7-0" 
Mw 4-1624 
MxF 4-1004 
MXWNDW 45-1694 
NBA 4-19 
NED 4-1034 
NEM 47-1024 
NEXT 7-04 
NOENTR 25=35 
NOINIT 24=129 
NOTPRS 9-115 

TRM 9-112 
NOTSAF 9=121 
NOUPDT 24-8 
NUMERR 19=1 
O.ENTR 11=5 
OF DIR 42114 
OFFSET 46-2488 
OPI 4-7-1514 
OPT 45-374 
OR 4-984 
PACKSN “9 
PAR 44-1414 
PARI 7-0 
PAR2 7-0 
PARS 7-0 
PARG 7-0 
PARS 7-0 
PAR6 7-0 
PARENT 10-195 
PAT 4-954 
PATA 7-08 
PATB 7-04 
PFECH 30-16 
PFECHI 30-75 
PFECH2 30-75 
PFECHS 30-75 
PFECH4 30-75 
PFTSTIN 30=T4* 
PGE o-10l# 


FORMATTER 


51-428 
46-408 


46-378 


46-828 
46-384 


46-394 
14-7 

46-278 
46-564 
46-314 
10=31* 


45-504 


15=109* 
46-784 
24-159 
46-64 
46-54 
46-74 
24-43 
46-414 
14-15 


16-33 
45-4094 
46-424 


7-08 


46-1354 


10-36 


15-119 
46-814 


46-804 
21-2254 


45-750 


30-834 


10=105* 


15=137« 


21-258 


45-957 


10-111* 15-114 18-18 
T$=T56s 15+159 156171 
45-779 


E 13 
MACRO yOS.00 4eAPR-B1 78:39:56 PAGE S-17 
CROSS REFERENCE TABLE (CREF vO1=-05 ) 


21-55 


15=176s 


16-57 


16-59 


16*94 


“ec un SA 2 


>> PPP YP wor «+ 


65=-<7484 45==41 
45-<B1 45-<88M 
4-684 9-26 
4-684 

7-0 18-77* 
22-94 22-98% 
45-;04% 45=-:05* 
45-284 65~314 
45-:69 45:75 
45=: 068 45-336 


45-313 45-325 
45-;18 45=-;374 
45-:08% 45-:09 
13-15 31-1 
4-2604 

64-2618 11-461 
10-71 10-90 
4-758 

4-2508 

4-245 - 

16-40 21-3018 
11-83 20-34 
20-78 22786 
19=1 20-124 
POeTAe = 21867 
1a=96 20-208 
20e2ba 21-318 


“ 


45-590 


Le RMOS,/ 4/2 EQRMATTER 
S SEFERENCE TABLE (CREF yO1=0 

4~-1%328 

4-684 

4-688 
45-422 45-473 

G~t Re 

4~-4a8 

4~6Re 

4-688 

4-684 

4-688 

4-688 G29 
4-684 

4-68 4-684 
45-470 45-4658 
4-784 

4-684 

4-684 9-26" 
45-<54a@ 65=<96 
45-<61 45-<68 
45-<64 45=<71 
45-<64 45=<71 
45-<64 45=<71 
45-<64 45-<71 
465-<64 65=<71 
45-<64 65-<71 
45-<64 45=<71 


45-7354 


49-5 
43-18 


18-41 
10-122 


F 13 
ACHO ¥OS.00 “-APR-81 18:39:56 PAGE S-12 


S-> 


65-892 


21176 
10=143* 


44-1* 
45=-=35 
45-<874 
45-<874 
45-<874 
45-<874 
45-<874 
45-<874 
45-<874 
45-<874 
45==40* 
45-=73 
45==43 


9-26* 
18-84* 
49-8 
49-5 
45-538 


49-6 


10=180 


45-927 


11=6* 


44-18 
45-=37* 


45-=41 
45-=74* 
45-=78 


18-85 
49-8 
45-562 


45-971 


14-15 


bo-1* 
45-=57 


45==43+ 
45-=75« 


18-85 
49=17 


45-576 


2I+190 


45==714# 


21-2448 


44-11% 
45==71* 


45==76 


18-B9* 
49-17 


45-714 


21-278 


45-214 


44-1* 


45~=78* 


18-90" 
53-58 


45-768 


24-190 


45-2158 


64-18 


18-91 


45-842 


27-15 


45-2448 


18-91 


45-852 


43-14 


45-252 


22-82" 


45-868 


51-22 


45-346 


22-88" 


45=-:23 


51-3) 


45-347" 45-400" 


22-89" 22-909 


45-2028 45=:55 


kt LT a RES ent ss eter 
esr heneerneeeneenensihen 


G 13 
RM AMOS /3/2_ | ORMATTER MACRO V06.00 4-APR-81 18:39:56 PAGE S-13 
ROSS wae F ERENCE TABLE (CREE yOT=05 2 


REJEND 20-5 20-8 20=14 20-18 20-22 20-26 20-288 212203 8 21-235 


RESET 1662 17-15 22-828 
RESREG 30-73 = 38=1 é0=7 G3-1@ = 45-253 45-396 45=397 — 45=459 459687 454699 452202 bee 27 Sent 
RESTRT 15-62 21-1858 


RETRY 7-04 11-23 ae Bh ig Fa De Sal 15=212 15-214* 15-2178 16=B6 16-88" 16-92" 18-7« 18=62+ 
j ~ - | jm [®t — | . 

RM .REG 7a 7-0" 16-16 16-30 16-32 16-46 18-58 18-65 18-67 18-71 19=1 21-45 29-1 29-1 
49~3 49~3 49-3 49-3 49-3 49-3 49-5 49-5 49-5 49-6 49-6 49-6 49-9 49-9 
4929 49-9 49-9 49-10 49-10 49-10 49-10 49-10 49-10 49-10 49-11 49-11 49-11 49-11 
49-11 49-14 49-14 49-16 49-14 49-14 49-14 49-14 49-14 49-15 49-15 49-15 49-15 49-15 
49-15 49-15 49-15 49-16 49-16 49-18 49-19 49-19 49-19 49-19 49-19 49-19 49-19 49-19 
49=20 49-20 49-20 49-20 49-20 49-20 49-20 49-20 49-21 49-21 

RMOS 11=33 11-462 15-13 15-196 16-9 18<35 18-42 1997 19=1 22-107 3945-3468 

RMADR 9-75% 9~-85* 9-92 10-139 945-1628 45-233 45-353 45-476 = 45-497 = 45-519 45-696 6 5=:21 6567060 452510 
45=;14 65-;28 45=:61 45-:65 45-:97 45-<38 51-36 

RMA S 45-180H 45-319" 45-766 45-896 45-932« 45-955» 45-51 


RMCST 4 5=173H@ 45-275 45-282 45-308 45-417" 45-418 45-492 45-516 45-557 45-577 45-588 45-605 45-626 45-715 
45-769 45-828 45-859 45-904 45-973 45-;56 49-4 

RMCS2 9-93* 10-140" 16-30 45-177# 45-234* 45-274% 45-276 45-366* 45-416* 45-477" 45-498" 45-520" 45-609 45-654 
45-670 =45=681* 45-715" 45-860* 45-940% 45-954* 45=:22% 45-:11 45-366 45-:98* 45-<04 45-<39" 45=<44 

RMDA 16-16 19=1 45-1768 45-484 45-510 45-526 


RMDC 45-1874 45-488 45-501 45-533 
RMD S 16-46 45-1784 45-315 45-843 45-869 45-941 45-324 
RMD T 45-1844 45-285 


RMEC2 45-1924 45-<12 Bee 3 

RMER1 16-32 21-45 45-179" 45-321 45-853 45-942 45-:70 

RMER2 45-1908 45-943 

——" 45-238 45-217 45-806 45-811 45-821 45-947 45-962" 45-943" 45-944" 49—4 49-4 49-4 


RMHi 
RMINIT 9-91 10-138 45-2134 


RMMRO = 45-1898 45-944 
— 45-1864 45-312 45-539 45-543 45-565 «45567 


RMTMR 21-209 45-9874 | 
RMVEC 9-742 9-81 45~163H 45-230 45252 45~347 


45-1744 
RTC 4-2498 
SAVEFG 9-94" 10-141* 45-117# 45-592 45-719 = 45-929 
SAVREG 30-6 38-1 40-1 43-i8 45-213 45-349 45-409 945-647 457693 45-990 45-394 45495 
SAVE 7-08 16-67" .- 21=97 
SC 45-698 45-7664 
$001 4-1974 
$CO2 4-1984 
SCO4 4-1998 


C1 45-B41 945-849 39-45-9208 
SCT? 45-802 45-815 = 45 +9408 


A et nyse eens 


F TABLE (CRE 


45-1254 


45-278 
22-128 
18=13 
11-32 
18-14 
9-83 


46-164 
18-19. 
15-1118 


21-3254 
45-411* 
10-137 
10=45 
10-183 
19=12 
9-26 
46-834 
9-154 
9-184 
21-1704 
21-1794 
21-178 


45=-:174 


45=-:32 
45-:604 


MACRO vO4.00 


F yO1=-05 ) 


45-9518 


45=B32 


45-867 
45-854 


10-378 
22-103 
15-45 


45-218 


21-1804 


45-:34 


45=-:49 
45-737 


10=103* 
26-50 
15-46 


45-443 


45-457 


18-34 
cenge 


18-60 
16-69% 


24-34 
45-924 
21-1604 
11-54 


Ti+93 


45-:514 


45-:58 
45-801 


45-885 45-906 


45-8884 


45-870 45-905 


11-13 
15-74 1575 


45-686 45-774 
191 

18-104 

16-72 16-74 
24-67 24-80 © 
45-933* 

146-16 ©. 15-195 
45=:63 § 45365 
45-856 45-875 


45-918 


45-958 


45-9084 45-949 


11-136 
15=92 


45~-<374 


16~76* 
24=244 


16-7 


45-:68 
45-937 


1599 
15=94s 


16-82* 
24-=246 


45=:75 
45-967 


45=<980 


15-41 
15-103 


16-93" 


45-783 
45-:41 


18<31 
15<105 


21-94" 


L5=:878 
45-286 


21-108 
15=120 


45-3948 


221 ‘ 


17-8 


aM BO RMOS/372_ 6 ORMATIER MACHO yOS.00 4-APR-BT 18:39:56 PAGE S=75 


O2 4~68 4-688 997 


Swl4 4-688 

SwtS 4-684 

Swe 4-684 

W3 4-684 

SWS 4-688 

Sw5 4-688 
4-688 

Sw? 4-688 

Sw8 4-684 

Sw 4-688 

Sw 6-04 9-26 9-26 9=26* 9-26" 9-26* 9-31 9-97 17-3 19-9 21-37 29-1 29-1 G=) 
29-1 29-1 31-1 31-1 Sl-is 44-1 44-1* 

SWREG 5-14 9-26 9-31 31-1 31-1 31-1 

T 21-252 46-184 


TABLE 7-08 10=170* 10-170* 10-196 


TABLE2 7-0" 10-173" 24-14 24-60 
TABLES = 7=0# 10-173 24-27 24-73 
TABLES = 7= 10-173* 24-217 


TD 45-697 45~705# See aie 
TIMER —45=130# = 45=452* 45-598" 45-662" 45-708" 45-837* 45-883* 45-935* 45-952" 45-976" 65-993 45-995" 45-264" 65e: 726 


45-:79% 
TKVEC 4-684 11-5* 14-135* 27-258" 31-1 3i<1s 
TPVEC 4-684 a 
TRAPVE 4-68" 9-26" 9=26* 
TRE 4-808 


TRKTST 17-20 21-664 
TRNSWT 27-216 9 45-79 = 45-4742 45-6352 945-637" 45-648 8945-668 45-679" 45-710 = 45-711* 45-235 4542478 


~684 
TST] 9-11 9-16 9-218 21-216 


TYLIST 24-93 24-97 24-116 24-120) = 25-1 34 
TYPACK 14=17 24-88 24-105 = 2-98 


whe Thal) 


WM. BC 


46-2598 


WMOS/3/2 FORMATTER 
SS REFERENCE TABLE (CREF VO1<05 >) 


45-273* 


46-128 
46-34 
46-44 
14-16* 
21-83 
21-70 


45-356 


14-19* 
21-1224 
21-1474 


11-142 
11-149 
24-165* 
18-74 


10-35* 


15-165 
10-178* 
45-;644 


45=;60* 
19-1 


19*1 


12-61% 


12-60* 
24-166* 


10=104* 


$191 
43-14 


43-14 
43-18 
45-5548 


19=1* 


12-63* 


12-62* 
24-167 


10-110 


9-62 
10-69 


45-630* 


20-28* 


22-52 


15-39 
26-10 


14-24 


16-62 
21=74 


45-500 
45=:488 


9-63 
10-70 


45-669* 


24-48 


19=1 
26714 


16-65 
21-127 


45-509 


J 13 
MACRO V04.00 4-APR-81 18:59:56 PAGE S-16 


9=107 
10-81 


45-798 


24-49 


21-301 
26-19 


79=1 


45-513 


45-893 


24-54 
21-311 


45-825 


45-895* 


24-55 
22-45 


45-532 


31-1 
51-30 


45-920 


24-110 
24-46 


45~542 


45-922" 


24-114 
24-47 


45-556 


SEQ OTE 

9-118 9-12) 
10-126 = 10=1 54 
11-17 12-12 
18-10 18-12 

24 20-25 
219277 =. 21-283 
24-92 24-95 
247196 = 24200 
30-26 30-27 
31-1 31-1 
31-1 32-1 
45-246" 
24-173 24-1748 
24-52 24-53 
45-560 45-587 


x 13 
CZRMLBO RMOS/$/2 FORMATIER MACRO y04.00 4-APR-B1 18:39:56 PAGE S-17 
CROSS REFERENCE TABLE (CREF yOI=05 } 


WRTIRKO 150193@ 16-70 
WRIRKA 15-1198 16-96 


| WRIRKB 15-128 9015-1618 15-144 


WRIRKC 15-159 15-159m@ 
WRTIRKD 15-122 15-135 15-150 15-154 15-176 


 WRIRKE 15-169 15-189 


cceiininammme sn ae 


WRIRKF 15=134 15-153 15=171# 
WRTRKH 15-174 15-1798 

wRIRKX 15-218 15-140 17-5 17-23 
WRTRKZ 15-25 17=204 


“ape 7-08 9-366 9-390 9-40 9-428 9-47 9-58 9-124 





ene Ne ee NN nea ne ne 


9-126 


10-51 


10-53 


10=1%0 


TO=1 42 


ZRMLBO &MOS/4/2 FORMATTER MACRO 
ROSS REFERENCE TABLE (CREF vO1=05 } 
EE MRE = S=2 168 
SE0MTM = 5216 = =—6=0 
tte S$ A 4-688 
PENEw! 4-684 9-21 
$S$SET 43-1 43-1 43-1 43-1 43-1 43-1 43-1 
SESE ™ 9-26 9-268 
$E5r IP 4-688 
~SActt 4-588 5-5 
$aPTR 8 4-SBa 6-0 6-04 
$APTH 4-588 5-8 
-BAPTY 46-588 41-1 
-SCATC 4-568 5-1 
(MTA 4-578 5-216 
-$0B2D 4-S7# 38-1 
.tDB20 4-58 40-1 
. SE OP 4-574 19=1 
. S9ERRO 4-578 29-1 
-SPOWE 6-588 44-1 
. BREAD 4-574 31-1 
-SSAVE 4-568 42-1 
-8SB2D 4-564 37-1 
-$SB20 4-584 39-1 
-STRAP 4-564 43-1 
-$TYPD 4-574 34-1 
-STYPE 4-574 32-1 
-STYPO 4-57H# 33-1 
-FQUAT 6-564 4-68 
~HEADE 4-564 4-62 
» SETUP 4-564 4-266 
-SWRHI 4-564 4-63 
- SWRLO 4-634 4-64 4-65 4-66 
CKCHR 4-84 10-124 28-87 28-95 
CKDIG 4-188 21-280 24-192 27-17 27-20 27-23 
CKNUM 4-314 
COMMEN 4-684 i 
ENDCOM 4-684 
ENDTYP 18-1294 19-1 
ERRCAL 43-24 45-773 45-831 45-8335 45-:19 45-;78 
ERRENT 28-1144 29-1 
ERROR 4-68 15-204 15-205 15-206 15-207 15-208 15-209 
16-48 16-50 18-51 18-52 18-53 18-54 18-55 
19-1 19=1 19-1 20-10 
ESCAPE 4-684 15-202 16-21 16-39 18-49 18-76 20-8 
GETPRI 4-684 
GETSWR 4-684 9-31 9-314 
LOOP 4-444 16-7 
MORE TA 5-114 6-0 
MULT 4-684 
NEWTST 4-684 9-21 
PoP 4-684 21-140 21-155 22-23 27-30 34-1 36-34 
PUSH 4-684 21-122 21-147 3922-17 27-8 34-1 41-1 
REPORT 4-684 
SETPRI 4-688 31-1 
SETTRA 43-1 43-1 43-1 43-1 43-1 43-1 43-1 
SETUP 4-684 9=26 
SKIP 4-684 


43-1 





43-1 


43-1 


44<1 


43-14 


SEQ 


Z2RMLBO RMO5/3/2 FORMATTER 


SLASH 4-684 


TYPTXT 4-684 9-6 9-45 


M13 
MACRO vV04.00 4-APR-81 18:39:56 PAGE Me2 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


9-56 9-62 9-63 


STARS 6-688 2s 5=5 5-8 5-8 5-8 6-0 
31-1 31-3 32=1 33-1 34-1 35-4 
44-1 45-15 
SWRSU =«- G=-6BH = +26 9-264 
TRMTRP 43-14 
| TYPBIN 4-684 
TYPDEC 4-68" 19-1 30-48 
| ty 4-684 9-31 
TYP WUuM 4-684 
TYPOCS 4-684 9-103 14-8 
| TYPOCT 4-684 30-46 31-1 


6-0 6-0 
37-1 38-1 


9-21 
39-1 


19-1 
40-1 


29-1 
41-1 


